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Preface 


In this book you'll find many new and exciting programs for your ORIC. 
Some are games, while others are purely entertainment (using sound and 
graphics). The games vary in nature. Dancing men, for example, is of the 
arcade type, relying on you to respond quickly and accurately. With some of 
the games you can take your time and exercise your mind a little bit. For 
example, in Don’t cry wolf you are chased by a pack of wolves. You can 
outwit them if you think about your moves. And there’s no hurry; the 
wolves don’t move until you’ve made your move. The third type are like 
puzzles, in which you have to rearrange various bits and pieces. 

The program listings are printed directly from bug-free RUNning programs. 
Each program is accompanied by notes describing the general purpose of 
the program. Usually a sample screen print-out is included to give an idea of 
what to expect from the program. In addition, brief descriptions of the main 
routine and the various subroutines are included to help you understand 
the way each program works. 

Each program has been written in a style which should enable you to see 
the program as a whole. The BASIC word G0TO is not used in any program. 
Excessive use of this word tends to make a program difficult to understand, 
and leads to what is commonly referred to as spaghetti programming. It is 
relatively easy to avoid using GOTO on the ORIC computer, the programs in 
this book provide the evidence. 

All GOSUB statements are of the form GOSUB BLANK, where the variable 
BLANK is assigned a value in the first few lines of the program. This makes it 
easy to renumber the lines of the program. A short renumber utility 
program is given in the appendices, you can add this to the end of your 
programs if you wish. 

Be careful when you type in a program; be particularly careful with colons 
and semicolons, with the number 1 and the letter I and finally with the 
number 0 and the letter 0. When you have typed out a program you should 
CSAVE it before trying to RUN it; just in case you have made a typing error. 
All the programs are bug-free; thus if a SYNTAX ERROR occurs you should 
carefully compare your program with the listing in this book. Please note that 
the spaces in the program listings are for clarity only, they need not be typed in. 

Care has been taken to ensure that all the programs are robust. 
Consequently they shouldn’t crash if an incorrect key is pressed. For 
example, if a program is expecting a number and you type in a letter by 
mistake then the program will not crash! 

The programs have been thoroughly tested by Ann, Kora and Inga as well 


as by several unsuspecting visitors. Many thanks to them all for being 
guinea-pigs and for making many valuable comments. Many thanks also to 
Kathleen McCaffrey who managed to convert my scratchings into readable 
text using an ACT Sirius 1 microcomputer. 


Czes Kosniowski 
Newcastle upon Tyne, June 1983 


I freasure Hunt 


This is a simple game in which you have to find the whereabouts of some 
hidden treasure. There are a number of bushes neatly displayed on your 
screen. The treasure is hidden under one of these. You are at the bush that is 
flashing and you can move from bush to bush by using the cursor keys. By 
pressing the space bar your ORIC will tell you approximately how far away 
you are from the treasure. Approximately, because the number displayed is 
the INTegral part of the distance between you and the treasure. 

To confuse you, the ORIC will occasionally print a question mark instead 
of the distance. Furthermore, if the distance is 10 or more then an X is 
printed. 

There is no limit to the number of guesses that you are allowed, but try to 
find the treasure in about 3 attempts! 
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# 
Use the cursor keys to move. 
Press the <Space bar? to view. 





18 R 
28 R 
38 R 
48 R 
58 V 
100 
118 
128 
130 
148 
158 
148 
170 
188 
198 
200 
218 
220 
238 
248 
258 
268 
508 
510 
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538 
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558 
568 
578 
1080 
1018 
1820 
“1038 
1848 
1858 
1868 
1870 
1888 
1898 
1108 


EM HEHEHE R ERE EERE HEE 
EM * TREASURE HUNT # 
EM HHERHHHHHHEE HERES 
EM 

TEW=500: SETUP=1080: INFO=2008 
REM * THE MAIN PROGRAM * 
GOSUB INFO:GOSUB SETUP 
REPEAT 

: PLOT X,¥,12:GET K#:KK=ASC(K$):PLOT X,Y,8 
: IF KK=32 THEN GOSUB VIEW 

: IF KK=8 AND X>4 THEN X=X-2 

: IF KK=9 AND X<3@ THEN X=X+2 

: IF KK=1@ AND Y<22 THEN Y=Y+2 

: IF KK=ii AND Y>2 THEN Y=Y-2 
UNTIL STATE 
SHOOT: WAIT 4@:PING:WAIT 48:PING 
PRINT CHR$(14)+E$+"L"3SPC(11)3; "WELL DONE" 
PRINT E$t+"A"+" Another go? Y or N" 
PRINT CHR$(14)+CHR$(11)5:PING 
REPEAT: GET K$:UNTIL K$="Y" OR K$="N" 

IF K$="Y¥" THEN RUN 
CLS:PING:PRINT “Bye for now.":POKE #26A,3:END 
REM * VIEW # 

IF SCRN(X+1,Y)<>35 THEN RETURN 
DIST=INT (SQR ( (MM-X) # (MM-X) + (NN-Y) # (NN-Y)) /2) 
A$=CHR$ (48+DIST) 

IF DIST>9 THEN A$="X" 

IF DIST>@ AND RND(1)<.5 THEN A$="?" 
PLOT X+1,Y,A$:STATE=DIST=@ 
RETURN 

REM * SETUP * 

CLS:PRINT SPC(11)3; "TREASURE HUNT"sPRINT 
FOR I=1 TO 11 

: PRINT SPC(3); 

: FOR J=@ TO 13 

: PRINT CHR$(27)+"H#"s 

: NEXT 

: PRINTs:PRINT 
NEXT 
PRINT E$+"A Use cursor keys to move." 
PRINT:PRINT E$+"D Press <Space bar> to view. "; 


1110 PRINT CHR$(11);CHR$(11);CHRS$(11) 

112@ X=16:Y=12 ‘INITIAL POSITION 

1130 MM=2*INT(RND (9) #1441) +2: NN=2#INT(RND(9) #1141) 
114@ STATE=FALSE 

1158 RETURN 

2008 REM # INFOrmation +# 

2018 POKE #26A,1@ ‘Disables cursor and key click 
2028 INK @:PAPER 3:CLS: PRINT 

2030 ES=" "+CHR$(27) sD$S=E$+"J"+CHR$ (4) 

2040 PRINT D$;SPC(9); "TREASURE HUNT":PRINT D$ 

2058 PRINT: PRINT 

2068 PRINT D$;SPC(6)3"“by Czes Kosniowski":PRINT D$ 
2070 PRINT:PRINT E$+"A Find the hidden treasure." 
2080 PRINT “By pressing the <space bar> you will" 
2098 PRINT “be told how far away the treasure is" 
2100 PRINT “approximately. Sometimes a ? appears" 
2118 PRINT “to confuse you. An X means that the" 
2128 PRINT “distance is 1@ or more. 600D LUCK" 
213@ PRINT: PRINT ES+"B"+E$4"L Press Y to continue." 
2148 REPEAT: K$=KEY$:K=RND(1): UNTIL K$="Y" 

2158 RETURN 


The main routine 


The main part of the program waits for you to press a key. If one of the 
cursor keys (ASC values 8 to 11) is pressed then the position of the flashing 
bush is changed. This is achieved by using PLOT X,Y,8 which disables 
flashing; and PLOT X,Y,12 which enables flashing. Note that position 
(X+2,Y) already contains the control character CHR$(27)+CHR$(8) which 
also disables flashing and consequently only the bush at (X+1,Y) flashes. 

If the space bar (ASC value 32) is pressed then the subroutine VIEW is used 
to print the distance between you and the treasure. When this distance is 
zero the value of STATE is TRUE and the program exits from the loop. 
Various sound effects and messages are then displayed. 


The subroutines 


500 VIEW 

This calculates the distance DIST between you and the treasure. If this 
distance is 10 or more then the number is converted to an X, also about half 
of the time the distance is not revealed! When the distance is zero the value 
of STATE becomes TRUE which causes the program to proceed to the 
finishing stages. 


1000 SETUP 

This creates the initial display of bushes. The position of the treasure is 
selected randomly. Note that PRINT CHR$(27)+"H#"; prints a space 
followed by the hash symbol. The space contains the control character 
CHR$(27)+CHR$(8) which is used to stop all characters to the right of that 
position flashing. 


2000 INFO 

Information briefly describing the game is contained in this subroutine. 
Note. When you switch on your ORIC and ask for a random number you 

obtain the same sequence of random numbers. To randomize this sequence a 

line has been inserted in the program whereby the computer selects (and 

ignores) some random numbers until the player presses the Y key. You will 

find such a line in most of the programs within this book. 


2 Don't Cry Wolf 


Imagine being in a deep forest and it’s getting late. You have to make your 
way home (H on the screen). There are several hungry wolves around ready 
to snap if they come near you. Can you reach home safely? 

To move about use the cursor keys and the following keys (which enable 
you to move diagonally): 


1 diagonally up-left \ diagonally up-right 
Z diagonally down-left / diagonally down-right 


With these diagonal moves you can squeeze between trees. 

Take your time and think about each move you make. If you are being 
chased by wolves — don’t despair — yc"! can outwit them if you try. The 
wolves are rather dumb and often get stuck in corners and behind trees. 
Also they cannot squeeze diagonally between the trees. 

With each successful home coming you have the opportunity to play 


YOUR MOVE 


There are 8 wolves around. 





again — with an extra wolf around. 
The wolves remain hidden during the first few moves — but they 
nevertheless move towards you. Beware! and don’t cry wolf. 


10 REM HHHHERHEHRHHER RE ES 

28 REM * DON’T CRY WOLF * 

3O REM HHKRRERERERERE REESE 

40 REM 

5@ APPEAR=500: WMOVE=600: EEK=7@@: MOVE=808 
6@ SETUP=1008: CHR=1500: INFO=2008 

100 REM #* THE MAIN PROGRAM #* 

11@ GOSUB INFO:GOSUB CHR 

128 REPEAT 

138 : GOSUB SETUP 

148 : REPEAT 

158 : PRINT H$:REPEAT: UNTIL KEY$="" 
168 : REPEAT 


178: GET 6$:G=ASC(6$) 
188:  ANS*FALSE 

199: IF 6=49 OR G=9@ OR G=47 OR G=92 THEN ANS=TRUE 
208 : IF 6>7 AND G<12 THEN ANS=TRUE 

218 : UNTIL ANS 

220: XN=X:YN=Y 

230: IF (6=49 OR G=9@ OR G=8) AND XN>2 THEN XN=XN-1 
240: IF (6=92 OR G=47 OR G=9) AND XN<35 THEN XN&XN+1 
258: IF (6=9@ OR G=47 OR G=18) AND YN<23 THEN YN=YN+1 
268: IF (6249 OR G=92 OR G=i1) AND YN>3 THEN YN=YN-1 
278 : PLOT X,Y,32:WW=SCRN(XN, YN) 

288: IF WW=32 OR WW=72 THEN X=XN:Y=YN 

298 : PLOT X,Y,Z 

308: IF X=33 AND Y=5 THEN PING: WAIT 20:PING:STATE=1 
310 : PRINT W$:TEST=FALSE: XY=SCRN(A(NW4+1) ,B(NW+1) ) 
320: IF NW<=WO AND RND(1)<.3 AND XY=#32 THEN TEST=TRUE 
338: GOSUB WMOVE-TEST#(APPEAR-WMOVE) 

34@ : UNTIL STATE 

358 : PRINT At 


368 : REPEATSGET K$: UNTIL K$="Y" OR-K$="N" 
378 UNTIL K$="N" 
388 CLS:PRINT “Bye for now. ":POKE #26A,3:END 


588 
518 
520 
538 
548 
608 
618 
628 
638 
648 
658 
668 
678 
688 
708 
718 
728 
730 
740 
B80 
818 
828 
838 
848 
850 
840 
878 
888 
890 
900 
1008 
1018 
1028 
1838 
1040 
1058 
1068 
1078 
1088 
1098 
1188 


REM ## APPEAR ## 
NW=NW+1:PLOT A(NW) ,B(NW) ,W 
MUSIC 1,1,4,0:PLAY 3,0,1,2500:WAIT 48 
MUSIC 1,1,3,@:PLAY 3,0,1,2500:WAIT 58 
PLAY 8,0,8,@:RETURN 
REM ** Wolf MOVE ## 
IF STATE THEN RETURN 
FOR I=@ TO WOLVES-1 
: GOSUB MOVE 
: IF I<=NW THEN PLOT ACI), BCI) ,32 
: ACT) =A:B(1I) 5B 
: IF I<=NW THEN GOSUB EEK 
NEXT 
RETURN 
REM ## EEK #4 
PLOT A,B,W 
IF A<>X OR BX>Y OR STATE THEN RETURN 
PLOT X,Y,"EEK": ZAP:STATE=2 
RETURN 
REM ## MOVE #+# 
XX=(ACT) OX) -CACT) CX) SYV= (BCI) OY) -( BCI) <Y) : S=8 
IF YY=@ THEN S=1:YY=1 
IF XX=@ THEN S=2:XX=1 
TEST=FALSE: T=-1 
REPEAT 
: T=T+1sAZA(T)+U(S,T)#XXsBeB( I) +V(S,T)#YY 
: SS=SCRN(A,B): TT=SCRN(A(I) ,B) sUU=SCRN(A,B(I)) 
: IF SS<W AND (TT<W OR UU<W) THEN TEST=TRUE 
UNTIL TEST OR T>7 
RETURN 
REM ## SETUP of screen ## 
PAPER 3: INK @:PRINT FRE(9):CLS 
WOLVES=WOLVES+ (WOLVES<2@) #(STATE=1) 
STATE=@ 
NW=-1 ‘Number of wolves appearing 
FOR X=1 TO 34 
: PLOT X,2,16@:PLOT X,24,168 
NEXT 
PLOT 11,2,"DON‘'T CRY WOLF" 
FOR Y=3 TO 23 
: PLOT 1,Y,16@:PLOT 36,Y,168 


1118 
1128 
1138 
1148 
1158 
1168 
1178 
1188 
1198 
1200 
1218 
1220 
1230 
1248 
1250 
1268 
1278 
1288 
1588 
1518 
1520 
1538 
1548 
1558 
1548 
1570 
1588 
1590 
1608 
1618 
14620 
1638 
1648 
1780 
1718 
1728 
1738 
1748 
28008 
2018 
2628 
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: FOR X=2 TO 35 

: IF RND(9)>.75 THEN PLOT X,Y,168 

NEXT: NEXT 

PLOT 5,246,"There are" 

PLOT 146,26,MID$(STR$(WOLVES) ,2) 

PLOT 19,26,"wolves around." 

FOR Y=3 TO 7:FOR X=2 TO 4 

: PLOT 29+X,Y,32:PLOT X,14+Y,32 

NEXT: NEXT 

PLOT 33,5,72:PLOT 4,21,37 

X=43 Y=21:2=37 

REM Position of the wolves 

FOR I=@ TO WOLVES-1 

: REPEAT 

: ACT) SINT(RND (1) #3442) :B(1) =INT(RND (1) #21+3) 
: UNTIL SCRN(ACI),B(I))=32 AND B(I)-A(I)<17 
NEXT 


RETURN 

REM #*# CHR ## 

H$=CHR$ (30) +ESt+"L"+ES+"A YOUR MOVE" 
WS=CHR$ (30) +CHRS$ (14) 

AS=CHR$ (30) +ES+"L"+E$+"D Another go? Y or N 


W=38:DIM A(2@),B(2@) 
START=#B400+3748: AA=#AG0@ 

POKE AA,2:IF PEEK(AA)<>2 THEN START=START-#8008 
FOR I=START TO START+7:READ R:POKE I,R:NEXT 
START=START+8 

FOR I=START TO START+7:READ R:POKE 1,R:NEXT 
STATE=0 

FOR S=@ TO 2:FOR T=@ TO 8 

: READ U(S,T),V(8,T) 

NEXT: NEXT 

RETURN 

DATA 14,14,4,31,14,14,10,108 

DATA 2,3,35,30,30,38,18,18 


DATA 1,1,1,@,0,1,1,-1,-1,1,0,-1,-1,0,8,0,0,8 
DATA 1,@,1,-1,1,1,0,-1,0,1,-1,- i ie 1,0,0,0 
DATA @,1,1,1,-1,1,1,0,-1,0,1,-1,-1,-1,8,-1,0,0 


REM ## INFOrmation *# 
ES=" "4+CHR$(27) s D$=E$+CHR$(4)+"I" 
PAPER 6: INK @:CLS:PRINT 


2038 PRINT D$3SPC(9);"DON'T CRY WOLF":PRINT: PRINT D$ 
2040 PRINT:PRINT D$;SPC(7)3; “by Czes Kosniowski":PRINT D$ 
2058 PRINT:PRINT "You are in a deep forest and there" 
20468 PRINT “are wolves around. Try and get back" 

2078 PRINT “home (H) - but"+E$+"DDON’T CRY WOLF." 
2088 PRINT “You can sqeeze between the trees but" 
2098 PRINT “the wolves can’t.” 

21080 PRINT:PRINT “CONTROLS: " 

2118 PRINT “Cursor keys for Left, Right, Up, Down" 
212@ PRINT “ 1 for Up-Left \ for Up-Right* 

2138 PRINT "| Z for Down-Left / for Down-Right" 
2140 PRINT: PRINT 

2158 PRINT “How many wolves do you to start with?" 
2168 PRINT "Select a number between 2 and 9: “$3 

2178 REPEAT: G$=KEY$:GG=RND(1)sUNTIL G$>"1" AND G$<"3" 
2188 WOLVES=VAL (G$) 

2198 POKE #26A,2 Disables cursor 

2288 RETURN 


The main routine 


The main part of the program waits for a key to be pressed. If it is one of the 
eight permitted keys then the program proceeds to move you and, 
consequently, the wolves. 


The subroutines 


500 APPEAR 

This determines when a wolf appears. There is a 30% chance that a wolf 
apppears during a move. Note that when a wolf appears the other wolves 
do not move. This gives the player a chance to escape. 


600 WMOVE 

This subroutine together with the subroutine MOVE, moves the wolves (even 
those not visible). It also checks to see if a wolf has reached you. Invisible 
wolves do no harm until they become visible. 


700 EEK 
This is a subroutine of the subroutine WMOVE. Its main purpose is to ZAP you 
when a wolf reaches you. 


800 MOVE 
A simple calculation is performed to determine where each wolf should 
move. If possible, each wolf moves closer to you, although if there isn’t a 
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closer position it will move one step away. Sometimes this causes a wolf to 
move backwards and forwards, giving you a chance to escape. 


1000 SETUP 
This creates the random forest screen display and determines where the 
wolves are originally positioned. ; 


1500 CHR 
The custom characters (you and the wolves) are created by this subroutine. 
There is also a line which takes care of changes in the location of characters 
between the 48K and the 16K ORICs. 

In addition this subroutine initializes some of the constants (numbers of 
wolves etc.). 


2000 INFO 
A brief outline of the game is contained in this subroutine. 
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o Mioon Landing 


You are in command of a lunar module. It has just detached itself from the 
mother ship and is in free fall. Only the retro-rocket (the space bar) will slow 
you down. Fuel is in short supply; so don’t keep pressing that space bar. 

Because of the cheap imported components used to build your module it 
is very sensitive to speed. Indeed, if you exceed a speed of 100, your module 
explodes! 

Try to land at a speed of 10 or less. 

Your ORIC provides a graphic display (with sound) of your velocity, 
height and fuel. 
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10 REM He#HHRHRHREHEREES 

2@ REM # MOON LANDING *# 

3Q REM HHHHRHKHHEHHEHES 

48 REM 

5@ CALCFUEL=50@: DISP=400: INSTRUCT=1000: SETUP=1500 


100 
110 
120 
130 
148 
158 
160 
178 
188 
198 
200 
218 
228 
230 
248 
258 
268 
270 
288 
298 
388 
318 
320 
338 
348 
358 
368 
378 
388 
398 
400 
580 
518 
528 
538 
548 
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REM ## THE MAIN PROGRAM ## 

GOSUB INSTRUCT: GOSUB SETUP 

REPEAT 

: VELOCITY=VELOCITY+ACCEL 

: SOUND 4,125-VELOCITY/4,7 

: IF VELOCITY<@ THEN SOUND 5,208-VELOCITY,7 

: YI=INT(VELOCITY/5) : Y2=INT(VELOCITY-S#Y1) : X=7 
: GOSUB DISP 

: PLOT 7,26, MID$(STRE(INT(VELOCITY)),2)+" * 
: HEIGHT=HEIGHT-VELOCITY/188 

s YIZINT(HEIGHT/8): Y2=INT(HEIGHT-8#Y1) 3 X=19 

: GOSUB DISP 

: PLOT 18,26, MID$(STRS(INT(HEIGHT#1@)),2)+" “ 
: IF KEY$<>"" THEN GOSUB CALCFUEL 

UNTIL HEIGHT<.1 OR VELOCITY>180 

EXPLODE 

FOR I=8 TO INT(VELOCITY/1@) 

: PAPER 1:WAIT 10:PAPER 4:WAIT 18:PAPER 7:WAIT 18 
NEXT 

PRINTsPRINT CHR$(14) 3 CHR$(1@) sCHR$(14); 

PRINT CHR$(11);CHRS$(4)3 

IF VE>10@ THEN PRINT Wi$ 

IF VE<=108 AND VE>2@ THEN PRINT SPC(10)3W2$ 
IF VE<=2@ AND VE>1@ THEN PRINT SPC(13)3W3$ 

IF VELOCITY<=18 THEN PRINT SPC(12);W4$ 

WAIT 5@8:PRINT 

PRINT E$+"N Another go? Y or N“;SPC(8) 
PRINT CHR$(4) 

REPEAT:GET K#s UNTIL K$="Y" OR K$="N" 

IF K$="Y¥" THEN RUN 

CLS:PRINT "Bye for now":POKE #26A,3:END 

REM ## CALCulate FUEL ## 

IF FUEL<1 THEN RETURN 

FUEL=FUEL-F 

YIsINT (FUEL/8) s Y2=INT (FUEL-8#Y1) 2 X=32 

IF Yi¢@® THEN RETURN 


558 

548 

578 

4600 

618 

620 

638 

4648 

658 

640 

1000 
1812 
1020 
1830 
1048 
10508 
1040 
1070 
1088 
1098 
1180 
1110 
1120 
1130 
1148 
1158 
1168 
1588 
1518 
1520 
1538 
1548 
1558 
15468 
1578 
1580 


1598 : 


14680 
1618 
1628 
1630 


VELOCITY=VELOCITY-BRAKES:GOSUB DISP 
PLOT 31,24, MID$(STRSCINT(FUEL/2)/1@@) ,2)+" © 
RETURN 
REM ## DISPlay #+# 

IF Yi<@ OR Yi>24 THEN RETURN 
FOR I=@ TO 1 

: PLOT X#1,24-Y¥1,32:PLOT X+1,25-Y1i,32+Y2 

: IF Y1>@ THEN PLOT X+I,24-Y1i,A$ 
NEXT 
RETURN 

REM ## INSTRUCTions #**# 

CLS:PAPER 4: INK 7:E$=" “+CHR$(27) 
D$=E$4+"J"+CHR$ (4): PRINT 

PRINT D$+E$+"C"3SPC(9)3 "MOON LANDING" 

PRINT D$: PRINT: PRINT 

PRINT D$+E$+"C"3SPC(46)3 "by Czes Kosniowski" 
PRINT D$: PRINT: PRINT 

PRINT “You are in command of a lunar module." 
PRINT “It is in free fall and only the retro" 
PRINT “rocket Cthe space bar) will slow you" 
PRINT “down. Do not exceed a speed of 100." 
PRINT:PRINT “Try to land at a speed of under 1@" 
PRINT: PRINT ES+"L"+E$+"A"3 SPC (10); "GOOD LUCK" 
PRINT: PRINT E$t+"L"+E$+"B Press Y to continue." 
POKE #26A,1@ ‘ Disables cursor and keyclick 
REPEAT: K$=KEY$:K=RND(1) UNTIL K$="¥" 

RETURN 

REM ## SETUP ## 

CLS:PAPER 7: INK Q@:PING 

START=#B400+33*8: AA=#ABOO 

POKE AA,2:I1F PEEK(AA)<>2 THEN START=START-#8000 
FOR I=@ TO &3:POKE START+1I,127: NEXT 

FOR I=@ TO 6:FOR J=@ TO 4-I 

: POKE START+J+1#8,8 

NEXTsNEXT 

FOR I=1 TO 25 


PLOT 6,1,MID$(" EMV TY "V1,1) 
: PLOT 18,1,MID$("HETGHT HEIGHT",I,1) 
: PLOT 31,1,MID$("F UEL FUEL FUEL",I,1) 


NEXT 
FOR I=@ TO 25 
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1640 : PLOT 1,1,1sPLOT 13,1,4:PLOT 24,1,2 
1658 NEXT 

14660 AS="(":BS="!" 

167@ FOR I=8 TO i 

1688 : FOR J=1 TO 25 

1690 : PLOT 194+1,J,A$:PLOT 32+1,J,A$ 

1708 : NEXT 

1710 : PLOT 1,24+1,5:PLOT 7+1,24,A$:PLOT 7+1,25,A$ 
1728 NEXT 

1738 PLOT 21,1,"200@":PLOT 21,7,"1580" 

1748 PLOT 21,13,"100@":PLOT 21,19," 500" 

1750 PLOT 21,25,B$+"80" 

1768 PLOT 34,1,"FULL":PLOT 34,7," 3/4" 

1770 PLOT 34,13,"HALF“:PLOT 34,19," 1/4" 

1788 PLOT 34,25,B$+"8a" 

1798 PLOT 9,5,B$+"10@":PLOT 9,18,B%+"75" 

1888 PLOT 9,15,B$+"S@":PLOT 9,20,B%+"25" 

181@ PLOT 9,23,B$+"1@":PLOT 9,25,B$+"00" 

1828 PRINT ES "@ “s:PLOT 31,26,"FULL" 

183@ HEIGHT=199: FUEL=199: ACCEL=. 9: BRAKES=1.8 
1840 F=.9+.4#RND(1):VELOCITY=18 

1850 WiS=E$+"N You went too fast and EXPLODED" 
1868 W2$=E$+"NCRASH LANDING" 

1870 W3$=E$+"NNOT BAD" 

1880 W4$=E$+"NWELL DONE" 

189@ PLAY 0,7,8,8 

1988 RETURN 


The main routine 


On each cycle the current velocity and height are displayed - both 
numerically and visually. The latter uses the subroutine DISP. Whenever a 
key is pressed fuel is consumed (if there is any left) via the subroutine 
CALCFUEL. 

The routine ends when either the velocity exceeds 100 or the height is 
about 0. 


The subroutines 


500 CALCFUEL 
This is used to calculate and display the quantity of fuel remaining. The 
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graphic display uses the subroutine DISP. 


600 DISP 
This simply plots the appropriate custom character to display the velocity, 
height or fuel. 


1000 INSTRUCT 
Brief instructions for the game are contained in this subroutine. 


1500 SETUP 
The custom characters are created here. There is nothing fancy about these 
characters, each is a solid block of a certain height. The characters have ASC 
code 32 to 39 and range uniformly from a blank space to a solid block. 
After these custom characters have been created the initial screen display 
is produced. 
Note: After running this program you may like to press the reset button on 
the ORIC. This will restore the standard characters. 
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4 Bird and Caterpillar 


In this game you are a hungry caterpillar crawling over the screen. There is 
food nearby — but can you reach it in time? The caterpillar cannot stop — but 
the direction that it moves can be changed by using the cursor keys. 

Be careful, the caterpillar must not hit the wall (the edge of the screen 
display) otherwise it gets squashed. Also, the caterpillar mustn’t suddenly 
go backwards otherwise it bites itself and the game ends. Thus, if the 
caterpillar is moving left don’t press the right cursor key. Instead, press the 
up or down cursor key first. 

There is even more danger around. A hungry bird (controlled by the 
ORIC) is flying around seeking the food and the caterpillar. 

As soon as a piece of food is eaten another piece appears somewhere else. 
See how much food the caterpillar can eat before getting squashed, biting 
itself or being eaten by the bird. 


BIRD AND CATERPILLAR 
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18 
20 
38 
40 
50 
68 
108 
110 
120 
130 
148 


15@ : 


1468 
178 


180 : 


198 
208 
210 
228 
230 


248 : 


250 
268 


278 : 


288 


298 : 
300: 


318 
328 


330 : 


358 : 


368 


370 : 


380 


398 : 


400 
418 
420 
430 


REM HHHEHHHEEHHEEEHHER RHEE EHEE 
REM * BIRD AND CATERPILLAR * 
REM HHEHHHERRH HEHEHE EE HERE HEHE 
REM 
BIRD=500: DIRECT=700: FOOD=900: SETUP=1208 
INITIAL=1500: CHR=1700: DESCRIP=2000 

REM ** THE MAIN PROGRAM ## 

GOSUB DESCRIP: GOSUB INITIAL 

REPEAT 

: GOSUB SETUP: GOSUB FOOD: STATE=FALSE 

: REPEAT 
K$=KEY$: IF K$<>"" THEN GOSUB DIRECT 
: PLOT P(2),Q@(2),32 
: FOR I=2 TO 1 STEP -1 
P(T)=P(I-1):Q(1)=Q(1-1) 
: NEXT 
: P(@)=P(0)+DP:8(8)=8(0)+DO 
: PQ=SCRN(P(O) ,Q(Q)) 
: IF P@¢>32 AND PQ<>C THEN STATE=PQ 
: IF PQ=C THEN ZAP:WAIT 3@:GOSUB FOOD: SUM=SUM+1 
FOR I=@ TO 2:PLOT P(I),Q(1) ,ReNEXT 


: GOSUB BIRD 
: IF X=A AND Y=B THEN ZAP:WAIT 3@:GOSUB FOOD 
FOR [=@ TO 2 
: IF X=P(I) AND Y=Q(I) THEN STATE=1 
NEXT 
UNTIL STATE 
: EXPLODE 


: FOR I=1 TO 3:PAPER i:WAIT 2@:PAPER 7:WAIT 20:NEXT 
: PAPER @:PRINT B$ 

: W=-(STATE=1)-(STATE=223) -2% (STATE=160) 

: PRINT AS(W) 

: PRINT CHR$(27)+"T"+E$+"GThe caterpillar ate ";SUM; 
IF SUM=1 THEN PRINT "bit of food"+C$ 

: IF SUM<>1 THEN PRINT "bits of food"+C$ 

PRINT CHR$(27)+"R°+E$+"G"; 

: PRINT "“ Another go? Y or N";SPC(1@) 

: REPEAT: GET G$: UNTIL G$="Y" OR G$="N" 

UNTIL G$<¢>"Y" 

CLS:PRINT "Bye for now. ":INK 7:POKE #26A8,3:END 
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588 
518 
528 
538 
548 
558 
548 
700 
718 
720 
738 
748 
758 
908 
918 
928 
930 
948 
950 
10880 
1018 
1828 
1030 
10840 
1858 
1068 
1878 
1080 
1898 
1180 
1118 
1120 
1138 
1148 
1158 
1168 
1178 
1508 
1518 
1528 
1530 
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REM #* BIRD movement +## 
XX=SGN(A-X): YY=S6N(B-Y) 

IF RND(1)<.3 THEN XX=SGN(P(@)-X): YY=SGN(Q0(@)-Y) 
IF XX#YY<¢>@ AND RND(1)<.5 THEN XX=0 
IF XX#YY<>@ THEN YY=2 
PLOT X,Y,32:X=X+XX:Y=VY+VY:PLOT X,Y,2Z 
RETURN 
REM *#* DIRECTion *# 

KK=ASC(K$) 

IF KK<8 OR KK>1i1 THEN RETURN 
DP=(KK=8) -(KK=9) 
DQ=(KK=11)-(KK=18) 
RETURN 
REM ## FOOD ** 
REPEAT 

: A=INT(RND(1)#36+2) sBEINT(RND(1)*#25+1) 
UNTIL SCRN(A,B)=32 
PLOT A,B,C 
RETURN 

REM ## Screen SETUP ## 

PAPER @: INK 2:PRINT FRE(9):CLS 

FOR X=1 TO 38 

: PLOT X,@,14@:PLOT X,26,140 

NEXT 

FOR Y=1 TO 25 

: PLOT 1,Y,16@:PLOT 38,Y,168 

NEXT 

REM BIRD POSITION 
X=INT(RND (1) #3642): Y=3:2=223 

PLOT X,Y,2Z 

REM CATERPILLAR 
P(@)=30:P(1)=31:P(2)=32 
Q(@)=22:6(1)=22:0(2)=22 

FOR 1=@ TO 2:PLOT P(I),Q(1) ,R:NEXT 
DP=-1:DQ=@ ‘Direction 
C=38:R=37:SUM=0 

RETURN 

REM #* INITIAL setup ## 
START=#B400+37#8: AA=#AQ00 

POKE AA,2:IF PEEK(AA)<>2 THEN START=START-#8008 
GOSUB CHR 


1548 
1550 
15468 
1570 
1580 
1598 
1680 
1418 
14620 
1728 
1718 
1720 
1730 
1740 
1758 
2000 
2010 
2020 
2038 
2040 
2050 
2068 
2070 
2088 
20908 
2180 
2118 
2128 
2130 
2148 
2150 
2142 


START=START+8:GOSUB CHR 

START=START+454:G0SUB CHR 

BS=CHR$ (27) +"Q"+CHR$(27)+"G . 

C$=" "+CHR$ (14) 

A$(0)=B$+" The caterpillar bit itself"+C$ 
A$(1)=B$+"The bird ate the caterpillar"+C$ 
A$(2)=B$+"The caterpillar got squashed"+C$ 
BS=CHR$ (30) +BS+" BIRD AND CATERPILLAR "+C$ 
RETURN 

REM ## CHR #+# 

FOR I=START TO START+7:READ X:POKE I,X:NEXT 
RETURN 

DATA 12,12,30,43,463,38,12,12 

DATA 4,14,31,31,14,4,4,4 

DATA 63,45,63,63,51,63,33,63 

REM ## DESCRIPtion #+# 

INK @:PAPER 6:CLS:PRINT 

POKE #26A,2 ‘Disables cursor 

E$="— "4CHR$(27) s DS=E$St"J"+CHR$ (4) 

PRINT D$;SPC(6)3;"BIRD-AND CATERPILLARS :¢PRINT D$ 
PRINT: PRINT 

PRINT D$;SPC(7)3"by Czes Kosniowski" 

PRINT D$:PRINT 

PRINT "Guide the caterpillar to the food." 
PRINT “But, avoid the walls and the bird!" 
PRINT "Also, don’t bite yourself by suddenly" 
PRINT “going backwards.“ 

PRINT: PRINT “To CHANGE direction use the cursor" 
PRINT “keys." 

PRINTSPRINT E$+"L"3SPC(8)3 "Press Y to start" 
REPEAT: G$=KEY$:G=RND(1):UNTIL G$="Y" 

RETURN 


The main routine 


The main routine moves the caterpillar and bird around the screen. 

A check is made to see if the caterpillar has hit the wall, bitten itself or 
eaten the food. Similarly a check is made to see if the bird has eaten the 
caterpillar or the food. 
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The subroutines 


500 BIRD 

This controls the direction in which the bird moves. On each occasion the 
computer decides whether the bird should move towards the caterpillar 
(30% of the time) or towards the food (70% of the time). Having decided 
what to aim for, the bird moves one step towards that goal. 


700 DIRECT 
After reading the keyboard this subroutine calculates the direction that the 
caterpillar must move. Only the cursor keys have any effect. 


900 FOOD 

Whenever food is needed this subroutine selects its position on the screen. 
A check is made to ensure that the food only appears in an empty space 
(away from the wall, bird and caterpillar). 


1000 SETUP 
The screen display is set up by this subroutine. It creates the surrounding 
wall, and positions the bird and caterpillar on the screen. 


1500 INITIAL 

Three custom characters are needed, the bird, the food and the caterpillar. 
The bird is just a face and replaces the character with ASC code 223 (which is 
the reverse of the character with code 95). The food and caterpillar designs 
replace the characters with ASC codes 37 and 38. The caterpillar actually 
consists of three diamonds joined together. 


1700 CHR 
This is a short subroutine which reads the DATA for the custom characters 
and POKEs it into the appropriate place. 


2000 DESCRIP 
This contains a brief description of the game. 
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5 fwenty-five Squares 


This is a puzzle-type game in which the ORIC mixes up the twenty-five 
letters of the alphabet A to Y. The object is to rearrange them into their 
correct position as shown below. 


=< 
< 
woo 
rom 
= 
a 


< 
c 
ao + 
voz 
z 
r 


Only certain groups of letters may be moved at any one time. These 
groups consist of the eight letters in the upper, bottom, left or right sections. 
The moves are achieved by pressing keys 1 - 8. Each of the odd numbered 
keys moves one particular group of letters round in a clockwise direction, 
while the even keys move them anticlockwise. For example, pressing key 1 
moves the eight letters on the left (TUVWXYBA in the diagram) round in a 
clockwise direction. Key 0 is used to abandon the game. 
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The game has various levels of difficulty. At the easiest level (Level 1) only 
two moves are made by the computer. See if you can work out which two. 
At higher levels of play the game could prove to be quite hard and 
challenging. Speed is not important in this game, thinking is! 





Twenty-five squares puzzle. 


To give up —- press @ 


10 REM HEHEHE HHHEHREHHRH HERE EHEE 

20 REM # TWENTY-FIVE SQUARES +* 

3D REM HEHHHEEKH HHH HEHEHE EHEHHEE 

40 REM 

5Q@ MOVE=500: DISP=1000: INITIAL=1500: DETAILS=2000 


108 
110 
120 
138 
140 
158 


1460 : 


178 
182 
198 
200 
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REM ** THE MAIN LOOP ## 

GOSUB DETAILS: GOSUB INITIAL 

GOSUB DISP:STATE=FALSE 

REPEAT 

: ANSWER=FALSE 

: REPEAT:GET G$: UNTIL G$>"/" AND G$<"9" 
GOSUB MOVE+S@#VAL(6$):IF G$<>"@" THEN GOSUB DISP 
: REM CHECK FOR END 

: IT=@ 

: REPEAT 

: TsI+l:IF AZ(I)<>64+1I THEN ANSWER=TRUE 


218 
228 
230 
248 
258 
268 
270 
288 
290 
308 
508 
518 
528 
538 
548 
558 
56a 
578 
388 
598 
608 
618 
628 
630 
648 
658 
660 
670 
4680 
698 
700 
710 
720 
730 
748 
758 
768 
778 
780 
790 
808 


: IF 1>24 THEN ANSWER=TRUE: STATE=1 

: UNTIL ANSWER 

UNTIL STATE 

PRINT CHR$(3@) 

REM ENDING 

IF STATE=i1 THEN PRINT WS$:PING: WAIT 3@:PING 
PLOT 10,3,"Another go? Y or N" 

REPEAT: GET G$: UNTIL G$="Y" OR G$="N" 

IF G$="Y" THEN RUN 

CLS:PRINT “Bye for now. "sPOKE #26A,3:END 
REM ## MOVE @ - Quit #+# 

STATE=2 

ANSWER=TRUE 

RETURN 

REM Just to fill the space. 

REM ## MOVE 1 - Left clockwise #+# 

B4=A% (25) 

FOR 1=25 TO 21 STEP -1:AZ(I)=AXL(1-1) NEXT 
AX(28)=AZ(1) sAX(1) =AZ (2) 2AZ(2) =B% 
RETURN 

REM ** MOVE 2 - Left anticlockwise ## 
BZ=A% (28) 

FOR 1=20 TO 24:sAX(1)=AX(I+1) sNEXT 
AZ(25)=AL(2)2AL(2) =AL(1) SAL (1) =BX 
RETURN 

REM *## MOVE 3 - Up clockwise #*# 

BA=A% (8) 

FOR I=8 TO 2 STEP -1:AX(1)=AXZ(1I-1) s NEXT 
AZ(1) =B% 

RETURN 

REM #* MOVE 4 - Up anticlockwise #*# 
BA=AL(1) 

FOR I=1 TO 7: AX(1)=AZ(I+1) sNEXT 
ALZ(B8)=B% 

RETURN 

REM ** MOVE 5 - Right clockwise #*# 
BZ=AZ(14) 

FOR I=14 TO 9 STEP ~-1:AXZ(1T)=AZ(I-1) NEXT 
AZ(B) =A (1) :AL(1) =B% 

RETURN 

REM *#* MOVE 6 - Right anticlockwise ## 
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818 
828 
838 
84a 
858 
84a 
870 
888 
898 
900 
918 
928 
930 
948 
1880 
1018 
1028 
1830 
1040 
1058 
1580 
1518 
1520 
1530 
1548 
1558 
1568 
1578 
1588 
1598 
1608 
1618 
1628 
1638 
1648 
1658 
1648 


1678 : 


1688 
1698 
1782 
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BA=AZ (8) 
FOR I=8 TO 13:AZ(1)=AX (141) sNEXT 
AZ(14)=AZ (1) 3AZ(1) =B% 
RETURN 
REM *# MOVE 7 - Down clockwise #+# 
BZ=AZ (20) 
FOR I1=28 TO 15 STEP -1:A%Z(1)=AZ(I-1) s NEXT 
AZ(14)=AZ(1):AZ(1)=BZ 
RETURN 
REM ** MOVE 8 - Down anticlockwise #* 
BZ=AZ(14) 
FOR [=14 TO 19: AZ(1)=AZ(14+1) 2 NEXT 
AZ(20)=AZ(1): AZ (1) =B% 
RETURN 
REM ## DISPlay ## 
FOR [=1 TO 25 
: PLOT X4Z(1),Y2(1) ,AZC(T) 
s PLOT X4(1),YA(1) +1, A2(1) 
NEXT 
RETURN 
REM ## INITIALisation #+# 
CLS:PAPER @:INK 7 
DIM AZ(25) ,X4(25) ,Y¥%¢25) 
FOR I=1 TO 25 
: AZ(I)=64+1 
: READ X4(1),Y%(1) 
NEXT 
FOR [=5 TO 22:PLOT 0,1,1@8:NEXT 
PLOT 0,1,1@:PLOT @,2,1@:PLOT @,3,2:PLOT 1,3,12 
REM MIXING 
FOR J=1 TO ZZ:GOSUB MOVE+5@*INT(8*RND(9) +1) 2NEXT 
Ws=" “ 
WS=ES+"A"+CHRS$(4)+W$4+"WELL DONE "+W$+CHRS (4) 
PRINT:PRINT V$:PRINT E$+"A" 
START=#B400+90#8: AA=#A000 
POKE AA,2:IF PEEK(AA)<>2 THEN START=START-#8000 
FOR I=@ TO 3 
START=START+8 
: FOR J=@ TO 7:READ R:POKE START+J,R: NEXT 
NEXT 
FOR I=1 TO 8 


1718 
1720 
1730 
1748 
1750 
1768 
1778 
1788 
1798 
1880 
1818 
1820 
1830 
1848 
185@ 
1848 
1878 
1888 
1898 
1988 
2008 
20108 
2020 
2038 
2048 
2058 
2060 
2078 
2088 
2098 
2188 
2118 
2128 
2138 
2148 
2158 
2168 
2178 
2188 
2198 
2280 


: READ U,V,X$ 

: PLOT U-1,V,4:PLOT U-1,V+1,4 

: PLOT U,V,X$sPLOT U,V+1,X$ 

: PLOT U+3,V,7:PLOT Ut3,V+t1,7 

NEXT 

PLOT 8,24,4:PLOT 9,24,"To give up - press @" 
RETURN 

REM LAYOUT DATA 

DATA 19,13,17,11,17,9,17,7,19,5,21,7,21,9,21,11 
DATA 23,11,25,11,27,13,25,15,23,15,21,15 

DATA 21,17,21,19,19,21,17,19,17,17,17,15 

DATA 15,15,13,15,11,13,13,11,15,11 

REM NEW CHARACTERS DATA 

DATA 30,6,10,18,16,14,8,4 

DATA 4,8,16,16,18,18,46,38 

DATA 30,24,20,18,2,2,4,4 

DATA 4,4,2,2,18,20,24,38 

REM MORE DATA FOR DISPLAY 

DATA 8,15,01,8,11,\2,15,5,03,22,5,4] 

DATA 29,11,5%,29,15,461,22,21,7%,15,21,\8 

REM #* DETAILS #+# 

CLS:PAPER @: INK 7:POKE #24A,3 

E$=" “4+CHR$ (27): DS=ES+CHR$ (4) 4+"J" 
V$=E$+"A"+D$+" Twenty-five squares puzzle. "+D$ 
PLOT 1,2,1 

PRINT:PRINT V$sPRINTs PRINT: PRINT 

PRINT D$;SPC(7);"by Czes Kosniowski" 

PRINT D$:PRINT 

PRINT “Rearrange the 25 letters back into" 
PRINT “their correct position as shown below." 
PRINT SPC(17)3"E"sPRINT SPC(16)3"D F" 

PRINT SPC(16)3"C G":PRINT SPC(14)3;"XYB HIJ" 
PRINT SPC(13)3"W A K"sPRINT SPC(14)3"VUT NML" 
PRINT SPC(146)3;"S O"sPRINT SPC(16)3"R P" 

PRINT SPC(17);"Q" 

PRINT: PRINT “Use the keys 1 to 7 to move the" 
PRINT “squares around." 

PRINTSPRINT E$t+"DDifficulty level? 1 to 9: "$3 
REPEAT: G$=KEY$: GG=RND (1) sUNTIL VAL(G$) >@ 
ZZ=3#VAL(G$)-1:POKE #26A,2 

RETURN 
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The main routine 


The main part of the program waits for one of the keys 0 - 8 to be pressed. 
The appropriate move is then carried out and a check is made to see if the 
letters are in their correct positions. 


The subroutines 


500 MOVE 

Lines 500 to 540 contain the move to quit the game. The other moves, 1 - 8, 
are spaced out at intervals of 50 between lines 550 and 940. The moves are 
called by the statement GOSUB MOVE+50*VAL(G$) where G$ is the key 
pressed. 


1000 DISP 
This simply displays the twenty-five letters in their current positions. 


1500 INITIAL 
The twenty-five letters are stored by their ASC codes (65 to 89) in the integer 
array A%(1). The positions in which the letters are to be plotted is stored in 
the integer arrays X%(I) and Y%(1). 

Four custom characters are created. These are simply four curved arrows. 


2000 DETAILS 
Brief details of the game are contained in this subroutine. 
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6 intelligence fest? 


Many questions in intelligence tests and quizzes involve a sequence of 
numbers and/or letters. For example, 


19,7. 16, 135 10, 22% 
0, K, H, E, «.-. 


You then have to write down the next term in the sequence. 

Your ORIC can be used to create all sorts of sequences which will test and 
amuse you. 

For each sequence you have two attempts to get the correct answer. There 
is no hurry — the computer will wait patiently while you think. 

After ten sequences you will be told how many you got correct. Don’t take 
the game too seriously, just have fun. 


INTELLIGENCE TEST? 
SEQUENCE 3 


osclU[wW OO AUreEUCUCdSTCUC<‘“(:™ 


What is the next term ? P 


No - try again 
What is the next term ? R 
The answer is Q 


Press Y to continue 
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10 REM €HHREEHHHER ERE RHEE REESE 
20 REM * INTELLIGENCE TEST? * 
3B REM HEREHEEERERERERE EEE EEE 
40 REM 

5@ SEQUENCE=580: INFO=1008 


120 
118 
120 
138 
148 
158 
148 
178 
188 
198 
200 
218 
220 
238 
248 
258 
268 
270 
280 
298 
300 
318 
320 
338 
340 
350 
368 
378 
388 
398 
500 
518 
528 
538 
548 
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REM ## THE MAIN PROGRAM ## 
GOSUB INFO 
FOR Zz=1 TO 18 
REM RANDOM NUMBERS 
A=INT(RND (1) #1041) sN=INT(RND (1) #4) 
B=INT(RND (1) #1@):C=1+2%(RND(1)¢.5) 
REM SCREEN 
CLS:PRINT “ "“sI$sPRINT 
PRINT ,,,," SEQUENCE "3ZZ:PRINT 
PRINT CHR$(4):PRINT E$+"J "5 
GOSUB SEQUENCE+100#INT(RND(1)#5):PRINT 
PRINT CHR$(4): PRINT: PRINT 
FOR JJ=1 TO 2 
INPUT “What is the next term "“sY$s:PRINT 
IF Y$=X$ THEN PING: JJ=3: PRINT W$:SC=SC+1 
: IF JJ=1 THEN SHOOT:PRINT E$+"BNo - try again" 
: IF JdJ=2 THEN SHOOT:PRINT E$+"“BThe answer is "3;X$ 
: PRINT 
: NEXT 
t 


PRINTSPRINT E$+"L“+E$+"D Press Y to continue" 
REPEAT: GET G$: UNTIL G$="Y" 
NEXT 
CLS:PRINT:PRINT D$+I$:PRINT D$: PRINT 
PRINT “ Your score out of 10 is “;SC 
FOR I=1 TO SCsPING: WAIT 20:NEXT 
PRINT: PRINT 
PRINT ESt+"L"+E$+"D Another go? Y or N" 
REPEAT: GET G$: UNTIL G$="Y" OR G$="N" 
IF G$="Y" THEN RUN 
CLS:PRINT "Bye for now. ": END 
REM # Arithmetic # 
IF C<® THEN B=B+B8@+INT(RND (1) #18) 
FOR I=1 TO S:PRINT AXI#C+B3" "3s NEXT 
X$=MID$(STRS(A#I#C+B) , 2) 
PRINT: RETURN 


600 
618 
628 
638 
648 
658 
708 
710 
720 
738 
748 
758 
760 
770 
800 
818 
820 
830 
840 
858 
868 
870 
880 
908 
910 
928 
930 
948 
950 
968 
970 
988 
990 
1000 
1010 
1028 
1030 
1048 
1850 
1068 
1070 


REM # Arithmetic letters *# 
FOR I=N TO N+6 
W=A#C#I+B: W=W4+S-264INT(W/26) SPRINT CHRS(W)3" "5 
NEXT 
WHAXC#I+Bs W=Wt+S-26#INT (W/26) 3s XS=CHRS(W) SPRINT 
RETURN 
REM * Two arithmetic *# 
W=8O+INT(RND(1) #18) 
FOR I=i TO 6 
PRINT W;" “3 
W=W+C#A:C=-Ci A=A+Bt1 
NEXT 
PRINT: X$=MID$(STRS(W) ,2) 
RETURN 
REM * Increasing aritheatic # 
W=85+INT(RND (1) #1) 
D=1+2#(RND(1)<¢.5) 
FOR I=1 TO & 
PRINT Ws" "3 
W=W+C#A:C=C#D: A=A+T 
NEXT 
X$=MID$(STRS(W) ,2) SPRINT 
RETURN 
REM # Arithmetic mixed * 
FOR I=N TO N+é 
W=AXC#I+Bs W=W+5-26#INT (W/26) s YS=CHRS (W) 

IF 2#INT(I/2)=1 THEN Y$=MID$(STR$(W-S+1) ,2) 
PRINT Y$+" "3 
NEXT 
W=A*C#I+Bs W=W+S5-264INT (W/26) s X$=CHRS (W) 

IF 2*INT(I/2)=I THEN X$=MID$(STR$(W-S+1) ,2) 
PRINT 
RETURN 

REM ** INFOrmation ## 

INK 7:PAPER @:CLS 

E$=" "+CHR$ (27) :S=65: D$=E$+"J"+CHR$ (4) 
IS=E$+"A INTELLIGENCE TEST?" 

PRINTSPRINT D$+I$:PRINT D$:PRINT: PRINT 

PRINT D$;SPC(7)3;"by Czes Kosniowski":PRINT D$¢ 
PRINT: PRINT “A sequence of numbers and/or letters" 
PRINT “will be given. Use your intelligence" 
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108@ PRINT "to work out the next term. Then type" 
1098 PRINT “it in and press <return>.":PRINT:PRINT 
1100 PRINT E$+"L"+E$+"B Press Y to start" 
1118 REPEAT: G$=KEY$:6G=RND(1):UNTIL G$="Y" 

1120 WS$=E$+"BWell done" 

113@ RETURN 


The main routine 


The main routine consists of a loop executed ten times. On each occasion 
some random numbers and a sequence type (one of five) are selected. These 
are then used to produce a random sequence of letters and/or numbers. 

After the sequence has been displayed the computer waits for an answer 
to be typed in. It then responds appropriately. 


The subroutines 


500 SEQUENCE 
This consists of five different sequence types as described below. They are 
called by the statement GOSUB SEQUENCE+100*INTCRND(1)*5). 


500 Arithmetic number sequences 


Examples: 2, 4, 6, 8, 10, 12, 
Vip lig 3G AD 7 C5 Gwe 
Bo 47 7 1S Oy Bp scene 


In an arithmetic sequence the difference between any two consecutive 
terms is constant. In the examples above these differences are 2 for the first 
sequence, 6 for the second and —4 for the third. 


600 Arithmetic letter sequences 


Examples: A, C,E,G,I1,... 
U,X,A,D,G, ... 
0O,N,M,L, K, wu 
Ry tp Hp Py Xpchy eae 


An arithmetic letter sequence is like an arithmetic number sequence 
except that it consists of letters of the alphabet rather than numbers. Thus 
the sequence consists of letters chosen at regular intervals. When the end of 
the alphabet is reached the letters are re-used as in the second and fourth 
example above. 


700 Two arithmetic sequences 


Examples: 85, 91, 80, 96, 75, 101,... 
80, 72, 85, 67, 90, 62, ... 
91; 10151125 125.5-441., 161.7: sees 
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These sequences consist of two arithmetic sequences which are linked 
together by alternating between them. One is increasing while the other is 
decreasing. 


800 Increasing arithmetic sequences 


Examples: 87, 97, 108, 121, 137, 157, ... 
90, 87,91, 85, 94, 81, ... 
88, 83,77, 69, 58, 43, wan» 


In these sequences the difference between two consecutive terms 
(ignoring whether it is positive or negative) increases at an increasing rate. 

For example, in the third sequence the differences are 5, 6, 8, 11, 15 which 
increase by 1, 2, 3 and 4 respectively. 


900 Arithmetic mixed sequences 

Examples: 14, P, 18, 1, 22, X, 26, «.. 
22,58, 16,M, 10,6,4,... 
J, 12,N, 16,R, 20, V, .... 


These sequences are a combination of the arithmetic number and 
arithmetic letter sequences. 


1000 INFO 
This contains information and brief details of the game. 
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? Hypnotic 


This program is just for fun and amusement - it is not a game — just sit back 
and watch the screen. 


10 REM 4H HHHHHR HEHE 
2@ REM * HYPNOTIC # 
3Q REM HHHHHHHHHEEE 


40 REM 


58 INFO=500 

REM #* THE MAIN PROGRAM ## 
GOSUB INFO 

FOR G=8 TO 40 STEP 18 


180 
118 
128 
130 
148 
150 


168 : 


178 
18@ 
198 
200 
218 
228 
238 
240 
258 
268 
278 
280 
298 
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HIRES: POKE #26A,1@:PLAY 2,0,0,8 
FOR Y=198 TO @ STEP -6 

CURSET 1.2#Y,Y,3:FILL 200-Y,1,17 

SOUND 2,25@-Y+6,8 

NEXT 
HIRES: POKE #26A,10:EXPLODE 
FOR [=@ TO 3:PAPER 1:WAIT 10:PAPER Q:WAIT S:NEXT 
PLAY 2,0,8,0 
FOR Y=@ TO 199 STEP & 

CURSET 1.2#Y,Y,3:FILL 208-Y,1,16+RND(1) #8 
SOUND 2,250-Y+6,8 
NEXT 
WAIT 10 


NEXT 

PLAY @,8,@,0:WAIT S@:E$=" "+CHR$(27) 

PRINT:PRINT ES+"B"+E$+"L- Another go? Y or N" 
REPEAT: GET G$:UNTIL G$="Y" OR G$="N" 


308 
310 
508 
518 
520 
53a 
548 
55@ 
568 
578 
588 
598 


TEXT: IF G$="Y" THEN RUN 

CLS:PRINT “Bye for now. ":POKE #268,3:END 
REM ## INFOrmation #+# 

INK 6:PAPER @:CLS:POKE #26A,10sPRINT 

E$=" "+CHR$(27) :DS=E$t+"I"+CHR$ (4) 

PRINT D$;SPC(11)3"“HYPNOTIC"sPRINT D$:PRINT 
PRINT:PRINT D$;SPC(4)3“by Czes Kosniowski" 
PRINT D$:PRINT:WAIT S@:PRINT "RELAX"; 

FOR [=@ TO 3@:PRINT ".“s: WAIT 18:NEXT: PRINT 
PRINT:PRINT “You are about to be"“ssWAIT 108 
PRINT E$+"LHYPNOTIZED.“:WAIT 480 

RETURN 


The main routine 


The main routine fills the HIRES screen in two ways. First with red 
rectangles of increasing size, and second with differently coloured rectang- 
les of decreasing size superimposed on each other. Sound aids the 
pseudo-hypnotic effect while the explosion snaps you out. 


The subroutine 


500 INFO 
This simply gives brief details about the program. 
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8 Dancing Men 


We’ve all made paper chains by folding paper, snipping away and then 
unfolding. Try to make a long chain of dancing men on your ORIC. 

In the beginning a man appears at the centre of the screen. A moment 
later another appears just below him. This process then repeats. You can 
change the direction in which the next man appears by using the cursor 
keys. The whole process stops when you hit one of the obstacles (this 
includes hitting a man that is already on the screen). 

The number of men on the screen is displayed at the top right of the 
screen. 









DANCING MEN TOTAL: 81 
















BERERSR EERE NS 


a 
to 


= 
HRERTRTAAETTE 







Another go? Y or N 






10 

28 

30 

40 

58 

68 

180 
118 
120 
138 
148 
158 
168 
178 
188 
198 
208 
218 
220 
230 
248 
258 
500 
518 
520 
538 
600 
618 
628 
638 
648 
658 
668 
180 
101 
102 
183 
104 
185 
104 
107 


REM HHREEREEEEERERE 
REM * DANCING MEN *# 
REM HRREERERERER ERE 
REM 
KEY=500: OBSTACLE=400 
SETUP=1000: INITIAL=150@0: DETAILS=2000 
REM *#* THE MAIN PROGRAM #+# 

GOSUB DETAILS:60SUB INITIAL 

REPEAT 

: GOSUB SETUP 

: REPEAT 

K$=KEY$:IF K$<>"" THEN GOSUB KEY 
X=X+DX: Y=Y¥+DY: STATE=SCRN(X,Y)< OC 
PLOT X,Y,Z: AMOUNT=AMOUNT+1 

PLOT 35,1,MID$(STRS (AMOUNT) , 2) 

GOSUB OBSTACLE 
UNTIL STATE 
PLOT X,Y,128+Z:EXPLODE: WAIT 48 
PLOT 18,25,"Another go? Y or N" 
REPEAT: GET G$: UNTIL G$="Y" OR G$="N" 
UNTIL 6$="N" 

CLS:PRINT “Bye for now. "“:POKE #26A,3:END 
REM ## KEY ## 

K=ASC(K$): IF K<8 OR K>11 THEN RETURN 
DX=(K=8) - (K=9) s DY=(K=11)-(K=18) 

RETURN 

REM ## OBSTACLE ## 

IF RND(1)<.2 THEN RETURN 

REPEAT 

: A=INT(RND (1)#3442):BeINT(RND(1) #2143) 
UNTIL SCRN(A,B)=C 

PLOT A,B,168 

RETURN 
@ REM *#* SETUP #+# 
@ PAPER 6: INK @:CLS 
@ FOR X=1 TO 3d:PLOT X,2,16@:PLOT X,24,160:NEXT 
@ FOR Y=2 TO 24:PLOT 1,Y,16@:PLOT 36,Y,1460:NEXT 
@ X219sV=132:DX=OsDV=1i:PLOT X,Y,Z:STATE=FALSE 
@ PLOT X,Y,Z:STATE=FALSE: W=20: AMOUNT=1 
@ PLOT 0,25,4:PLOT 1,25,12 
@ PLOT 1,1,"DANCING MEN" 
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108@ PLOT 27,1," TOTAL: i" 

1098 RETURN 

150@ REM *# INITIALisation ## 

151@ START=#B400+38#8: AA=#A000 

152@ POKE AA,2:IF PEEK(AA)<>2 THEN START=START-#8000 
153@ FOR I=START TO START+7:READ R:POKE I,R:NEXT 
154@ 2=38:C=32 

155@ RETURN 

156@ DATA 14,14,4,31,14,14,18,18 

2008 REM *## DETAILS ## 

2801@ CLS:PAPER i:INK 7:PRINT 

2020 POKE #26A,2 ‘Disables cursor 

2038 ES=" "+CHR$(27): DS=E$t+"J"+CHR$ (4) 

2040 PRINT D$;SPC(ii); “DANCING MEN"“:PRINT D$:PRINT: PRINT 
2058 PRINT D$;SPC(7)s"by Czes Kosniowski":PRINT D$ 
2060 PRINT: PRINT "Make a chain of dancing men. Use the" 
2078 PRINT “cursor keys to change direction. "sPRINT 
208@ PRINT “But - watch out for the obstacles!" 

2098 PRINTSPRINT E$+"L"3SPC(9)3 "Press Y to play," 
210@ REPEAT: G$=KEY$:GG=RND(1):UNTIL G$="Y" 

2118 RETURN 


The main routine 


The main program draws a man and checks to see if it has hit an obstacle. 


The subroutines 


500 KEY 
This is used when a key is pressed. When a cursor key is pressed the 
computer calculates the direction in which the man should move. 


600 OBSTACLE 
This produces an obstacle (approximately 20% of the time). 


1000 SETUP 
A boundary wall is printed together with a man at location (19,13). 


1500 INITIAL 
One custom character, the man, is created. This replaces the character with 
ASC code 38. 


2000 DETAILS 
This contains brief details of the game. 
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9 Graphics Show 


Whenever you see an expensive business computer on display it always 
shows off some of its graphics facilities. Some of the patterns produced are 
very interesting and remarkably easy to produce on the ORIC. This program 
will show five different sorts of patterns. Each pattern uses several random 
numbers and so you should never see the same pattern twice. 

See Appendix 1 for some notes on saving HIRES pictures via your tape 
recorder. 
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10 REM HHHHHHHHHHHHHRRHEE 

2@ REM * GRAPHICS SHOW +# 

3O REM HHEHHRHHHHHERHHRHEHE 

4@ REM 

5@ INC=100: GRAPH=40@: CARRY=1000: ARCS=1100 


100 
118 
120 
13@ 
148 
158 
168 
170 
188 
198 
208 
218 
228 
238 
240 
258 
260 
278 
288 
298 
308 
500 
518 
520 
538 
548 


558 


568 
578 
580 
598 
600 
618 
620 
638 
648 
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REM ## THE MAIN PROGRAM *## 
INK 4:PAPER @:CLS 

REPEAT 

: TEXT: CLS:PRINT: Z=FRE(1) 
: ES=" "“+CHR$(27) : D$=E$+"JI"+CHR$ (4) 

: XMID=119:s YMID=99: DEF FNR(X)=INT(RND(1)#X)sPP&2#PI 
: PRINT D$;SPC(9);"GRAPHICS SHOW":PRINT D$ 

: PRINT:PRINT: PRINT D$3SPC (4); 

: PRINT “by Czes Kosniowski":PRINT D$:PRINT 

: PRINT “1. TWISTER": PRINT 

: PRINT "2. STAR":PRINT 

: PRINT “3. EYE"sPRINT 

: PRINT “4. THISTLE“:PRINT 

: PRINT "5S. MOIRE“s PRINT 

: PRINT “@. QUIT"“:PRINT 

: PRINT “Please enter the number of your choice" 

: REPEAT: G$=KEY$:GG=RND(1):UNTIL G$>="@" AND G$<"6" 
: G=VAL(G$):HIRES:POKE #26A,2 

: IF G>@ THEN GOSUB GRAPH+INC#6:GOSUB CARRY 

UNTIL G=@ 

TEXT:CLS:PRINT “Bye for now. "sPOKE #26A,3:END 

REM ## TWISTER ## 
A=.5-RND(1):B=.5-RND(1)sC=.5-RND (1): D2. 5-RND (1) 
PRINT SPC(14)3 "TWISTER": SH=15: XMID=XMID-SH 

FOR I=1 TO 25 STEP .25 

: X=XMID#SIN(A#I): YeYMID#COS (Bel) 

: CURSET X+XMID+SH,Y+YMID, 1 

: DRAW 1+XMID#SIN(C#I)-X,1L1+YMID#COS (D#1)-Y,1 

NEXT 

XMID=XMID+SH 

RETURN 

REM ## STAR ## 

PRINT SPC(16)3 "STAR": N=34FNR(7) s ANGLE=PP/N 
W=YMID#RND (1) sSTART=P1#(2#INT(M/2) =N-1)/2 

FOR I=YMID TO @ STEP -S5:X%=1#COS (START) 

: YZ2T#SIN(START) sCURSET XX+XMID,YX+YMID,1 


658 
668 
678 
688 
698 
708 
718 
720 
738 
740 
758 
768 
778 
788 
798 
808 
818 
820 
830 
840 
858 
840 
878 
880 
898 
900 
918 
920 
938 
940 
958 
968 
970 
980 
998 


: FOR J=START+ANGLE TO START+PP+ANGLE STEP ANGLE 
: U%=W#COS (J-ANGLE/2) : VZ=W#SIN(J-ANGLE/2) 
: DRAW U%-X%,V%-V%, 12 X%2U%2 V%=V%U%21#COS (I) 
:  VAEL#SIN(I) :DRAW UX-X%,VU-V%, Le XZ=U%2 VLEVE 
NEXT: NEXT: RETURN 

REM #* EYE ## 

PRINT SPC(16); "EYE" 
A=10+FNR(4@) :B=5Q+FNR (40) :N=1Q+FNR(4@) 
60SUB ARCS 

A= (A+B) /2:B=(B+YMID) /2 

FOR I=@ TO PP STEP PI/N 

: CURSET XMID+A#COS(1),YMID-A#SIN(I),1 

: DRAW (B-A)#COS(I), (BHA) #SIN(T) ,1 

NEXT 

RETURN 

REM ## THISTLE ## 

PRINT SPC(14)5; "THISTLE" 

A=10+FNR (48) rB=SO+FNR (40) :N=LO+ENR (48) 
GOSUB ARCS 

A=(A+B) /2:B=(B+YMID) /2 

FOR I=@ TO PI STEP PI/N 

: CURSET XMID-A#COS(I),YMID#A#SIN(I), 1 

: DRAW (B+A)#COS(I), (B-A)#SIN(I),1! 

NEXT 

RETURN 

REM ## MOIRE ## 

PRINT SPC(15) 5 "MOIRE" 

XMAX=224s YMAX#1991K21+5#RND (1) 

FOR I=@ TO XMAX STEP K 

: CURSET 15,0,1:DRAW I, YMAX,1 

NEXT 

FOR I=YMAX TO @ STEP -K 

: CURSET 15,@,1:DRAW XMAX,I,1 

NEXT 

RETURN 


1088 REM ## CARRY ON ## 

1010 PING:FOR I=1 TO 6:INK I: WAIT 75: NEXT 

1028 E¢=" "+CHR$(27) 

103@ PRINT E$+"B"+E$+"L Press Y to continue" 
104@ REPEAT:UNTIL KEY$="" 

1058 REPEAT:GET G$:UNTIL G$="Y" 
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1060 HIRES: POKE #24A,2: RETURN 

11@@ REM ** ARCS #+# 

111@ FOR I=@ TO PP STEP PP/N 

1120 : CURSET XMID,YMID,1 

113@ : DRAW A#COS(PP-1) ,A#SIN(PP-I),1 
1140 : CURSET XMID,YMID,1 

1158 : DRAW BeCOS(PI/N+I) ,BeSIN(PI/N+I),1 
1148 NEXT 

1170 RETURN 


The main routine 


This is the main menu to find out which sort of pattern the operator wants 
created. 


The subroutines 


400 GRAPH 
There is no subroutine with this line number. The relevant subroutines are 
at intervals of 100 starting with line number 500. They are called by GOSUB 
GRAPH+INC*G where INC=100 and G is one of the numbers 1 - 5 typed by 
the operator. Details of these subroutines are given below. 

500 TWISTER consists of a sequence of straight lines that twist around the 
screen. 

600 STAR draws a random star with between 3 and 9 sides. The computer 
then fills in this region. 

700 EYE is a sequence of lines that partly fan out from the centre of the 
screen. The final effect is much like an eye. 

800 THISTLE is much like EYE. 

900 MOIRE consists of a sequence of straight lines that emanate from the 
top-left corner of the screen, slowly filling the whole screen. 


1000 CARRY 
This subroutine changes the colour of the picture and then asks if you want 
to carry on. 


1100 ARCS 
This is needed for some of the GRAPH subroutines. 


10 Square Nim 


Square nim is a game for two people. As the name suggests it is a disguised 
version of Nim. In case you've forgotten, Nim is that pick-up-sticks game in 
which you are presented with some piles of sticks. Each player, in turn, 
picks up some of the sticks from any one pile. The player picking up the last 
stick wins. 

In square nim we have a square board (something like a chess board). This 
has a letter A and a letter B in each row. One person is player A and the 
other player B. 

Each player, in turn, chooses a row and moves his or her letter along that 
row without jumping over the opponent's letter. The game ends when the 
letters in each row are next to each other. The player creating this state wins. 

The letter that is flashing can be moved by using the left or right cursor 
keys. If you want to move a different letter use the up or down cursor keys. 
The up and down cursor keys will only work if you have not yet moved your 
letter left or right. When you have moved your letter press Y for the next 
player’s turn. A letter must be moved before the Y key has any effect. 


x 
* 


* * * KK KK K 
* * ke ek DK *K * 
De * D*D* D * 


D*x* D* D* OD * 
* * kee * eK ED * 
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10 REM #H#HHHRHRERHHSEE 

2@ REM * SQUARE NIM # 

3O REM HHHHHHHHHE HEHE 

40 REM 

5@ FLASH=500: BIT=20: SETUP=100@: INFO=2000 

10@ REM *##* THE MAIN PROGRAM ## 

11@ GOSUB INFO:GOSUB SETUP 

120 REPEAT 

13@ : PLOT 8+2#X,5+2#Y,8: ZAP 

140 : C=-(NOT-C):ANSWER=FALSE 

158 : GOSUB FLASH+BIT 

160 : PLOT 10,25,X$(C):T=0 

178 : REPEAT 

180 : GET G$:G=ASC(G$) 

190 : PLOT 8+2#X,5+2#Y,8 

200 : IF G=8 AND C=@ AND X>@ THEN A(Y)=AC(Y)-1:T=T-1 

21@ : IF G=8 AND C=1 AND X>A(Y)+1 THEN B(Y)=B(Y)-1:T=T-1 
220 : IF G=9 AND C=@ AND X<B(Y)-1 THEN A(Y)=A(Y) +1: T=T+1 
230 : QIF G=9 AND C=1 AND X<9 THEN B(Y)=B(Y) +1: T=T+l 

240 : IF G=8 OR G=9 THEN GOSUB FLASH 


250 : IF G=1@ AND Y<? AND T=@ THEN Y=Y+1 
268 : IF G=11 AND Y>@ AND T=@ THEN Y=Y-1 
278 : IF G$="Y" AND T<>@ THEN ANSWER=TRUE 
288 : GOSUB FLASH+BIT 


290 : UNTIL ANSWER 

3@0 : REM CHECK FOR WIN 

31@ : STATE=TRUE 

3280 : FOR IT=@ TO 9:STATE=STATE# (A(T) =B(1)-1) : NEXT 
33@ UNTIL STATE 

34@ PING: WAIT 3@:ZAP:WAIT 30:PING 

358 PLOT 9,25,12:PLOT 23+C,25, "WINS" 

368 PLOT 7,3,CHR$(12)+CHR$(4)+"Another go? Y or N" 
37@ REPEAT:GET G$:UNTIL G$="Y" OR G$="N" 

380 IF G$="Y" THEN RUN 

39@ CLS:POKE #26A,3:PRINT “Bye for now. ":END 

508 REM ** FLASH #% 

S1i@ PLOT 94+2#X,5+2#Y,42 

928 X=C#B(Y)-(C=8) #A(Y) 

53@ PLOT 8+2#X,5+2#Y,12:PLOT 10+2#X,5+2#Y,8 

540 PLOT 9+2#X,5+2#Y,45+C 

55@ RETURN 


4 


1080 
1818 
1028 
1830 
1048 
1058 
1068 
1878 
1080 
10898 
1100 
1110 
1120 
2008 
2018 
2028 
2038 
2048 
2058 
2860 
2078 
2088 
2098 
2108 
2110 
2120 
2138 
2140 
2158 
2160 
2170 
2188 
2198 
2200 
2210 


REM ## SET UP ## 

PAPER 6: INK @:CLS:PRINT 

PRINT S$:PRINT D$:PRINT: PRINT 

FOR I=@ TO 9 

: PRINT SPC(7) 

: FOR J=@ TO 9:PRINT CHR$(136)+"#"5 2 NEXT 

: PRINT: PRINT: A(T) =INT(RND(1) #5) 

: BCI) =INTCRND (1) *#(9-ACI)) 4A(1) 41) 

: PLOT 9+2#A(1),5+2#1,65:PLOT 9+2#B(1) ,5+2#1,66 
NEXT 

X$(@)="FIRST PLAYER - A “sX$(1)="SECOND PLAYER - B" 
C=1:Y=@:PLOT 8,25,4 

RETURN 

REM ## INFOrmation ## 

CLSsPRINT:POKE #26A,2:PAPER 4: INK @ 

E$=" "4+CHR$(27) sDS$=E$+"JI“+CHRS$ (4) 


S$=D$+" SQUARE NIM" 

PRINT S$:PRINT D$:PRINT: PRINT 

PRINT D$+" by Czes Kosniowski":PRINT D$:PRINT 
PRINT "This is a game for two players, A & B." 


PRINT “Each player, in turn, chooses a row" 
PRINT “and moves his or her piece anywhere" 
PRINT “within that row, but without jumping" 
PRINT “over the opponents piece. The game" 
PRINT “ends when the pieces in each row are" 
PRINT "next to each other. The player creat-" 
PRINT “ing this state wins. "sPRINT 

PRINT “The piece that is flashing can be " 
PRINT “moved left or right with the cursor” 
PRINT “keys. If you want to move a different" 
PRINT “piece, use the other cursor keys. ":PRINT 
PRINT “When you are ready, press Y."“:PRINT 
PRINT ES+"L"+E$+"D"3SPC(4)3 "Press Y to play"; 
REPEAT: G$=KEY$:G6G6=RND(1): UNTIL G$="Y" 

RETURN 


The main routine 


The main loop responds to the key that has been pressed. 

The value of T determines whether or not a letter has been moved. 
ANSWER becomes TRUE when both T is non zero and the Y key has been 
pressed. 
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The subroutines 


500 FLASH 

This is used to flash the appropriate position on the screen. There is another 
subroutine embedded in this subroutine — this is accessed by using GOSUB 
FLASH+BIT, i.e. GOSUB 520. 


1000 SETUP 


This prints out the board and randomly positions the A’s and B’s in each 
row. 


2000 INFO 
A brief outline of the game is contained in this subroutine. 


il Oh! Susanna 


With this program the ORIC plays a tune and produces a random, colourful, 
pattern. Press @ when you want to quit the program. 


10 REM H#EHHHHHEHHHRHEES 


28 REM * OH! SUSANNA # 
38 REM HHHHHHHHHEHEEEE 


40 REM 

5@ INFO=580 

18@ REM *#* THE MAIN PROGRAM #+# 

11@ GOSUB INFO 

128 REPEAT 

138 : PLOT FNR(37) ,FNR(27) ,CHRS(FNR(7) +1) +CHRS(32+FNR(M) ) 
140 : [=I+it:IF 1558 THEN [=O:J=J+i:1F J>5 THEN J=1 

150 : B=INT((ACI)-1)/12) 

160 : IF ACI)>@ THEN MUSIC 1,J+B,A(I)-12#B,@:PLAY 3,@,1,L 
178 : WAIT S#T(1) 

18@ UNTIL KEY$="Q" 

19@ PLAY 8,8,0,8 

200 PRINT E$s"B"5E$3"L Another go? Y or N“sSPC(1@) 
218 REPEAT: GET G$:UNTIL G$="Y" OR G$="N" 

220 IF G$="Y" THEN RUN 

23@ CLS:PRINT "Bye for now. ":POKE #26A,3: INK 7: END 

5@@ REM ## INFOrmation #+# 

51@ INK S:PAPER @:CLS:DEF FNR(X)=INT(RND(1) #X) 

520 E¢=" “+CHR$ (27) :DS=E$+"I"+CHR$ (4): PRINT 

53@ PRINT D$;SPC(18);"OH! SUSANNA“: PRINT D$:PRINT: PRINT 
548 PRINT D$;SPC(4);"“by Czes Kosniowski":PRINT D$:PRINT 
558 PRINT “Watch the computer while it produces" 
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56@ PRINT "a random pattern and plays a tune.“:PRINT 
57@ PRINT “Press Y to start. "3 

58@ REPEAT:GET G$:UNTIL G$="Y" 

598 PRINTSPRINT:PRINT "Press @ to quit. "3 

600 DIM A(58),7T(58):FOR [=@ TO S8:READ ACI), T(I) NEXT 
618 IF 1(58)<>6 THEN PRINT “ERROR IN DATA! ":END 

628 CLS:POKE #246A,18:LORES 1:L2=2500:4=95 

63@ RETURN 

70@ DATA 6,1,8,1,10,2,13,1,13,3,15,1,13,2,18,2 

710 DATA 6,3,8,1,18,2,10,2,8,2,4,2,8,4,08,2,6,1 

72@ DATA 8,1,10,2,13,3,13,1,15,1,13,2,10,2,4,3 

730 DATA 8,1,10,2,10,2,8,2,8,2,6,46,0,2,11,4,11,4 

748 DATA 15,2,15,5,15,1,13,2,13,2,10,2,6,2,8,4 

758 DATA @,2,6,1,8,1,18,2,13,2,13,3,15,1,13,2 

768 DATA 180,2,6,3,8,1,10,2,18,2,8,2,8,2,6,6,8,6 


The main routine 


The main program plays a note and plots a random character from the 
alternate character set. The tune is played on a different scale each time. 
See Appendix 4 for some musical notes. 


The subroutine 


500 INFO 
This contains a brief description of the program. 

Following the description the DATA is read in. This. data consists of the 
note (stored in the array A(1)) and the time interval for which it should be 
played (stored in array T(1)). 

An error check line has been inserted to make sure that all the data is 
there. 


I? Stop’em 


There are twelve lights on the screen which may be on or off. At the start 
only one or two lights are on. The position of each light moves from left to 
right. When it reaches the end of the row it goes back to the beginning and 
repeats. The object is to switch the lights off by pressing any key. 

If the light in the marked position is on and you press a key then the light 
goes off. If it is off then it goes on. Thus, if you miss you have more lights on 
— all moving from left to right. Try to stop ‘em all. 





STOP ’EM 


BoOomenrpmsesomereodg& aoa 


“ 


Press the <space bar> to stop’em 
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10 REM #HeHREHEHE RE 
28 REM # STOP ‘EM # 
3O REM HHEHHRHRHRHRE 
4@ REM 

5@ SETUP=400: INFO=600 


100 
118 
120 
138 
148 
158 
148 
178 
188 
198 
208 
218 
220 
238 
248 
258 
268 
278 
400 
418 
420 
438 
440 
458 
468 
478 
480 
498 
580 
318 
680 
618 
420 
638 
648 
658 
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REM #* THE MAIN PROGRAM ## 
GOSUB INFO:STATE=FALSE:GOSUB SETUP 
REPEAT 
FOR K=@ TO 18 

WAIT ZZ:PRINT AS+CHR$(11) 

IF A$=B$ THEN STATE=TRUE 

AS=RIGHT$(A$,4) +LEFTS$(A$, 44) 

N=ASC (MID$(A$,23,1)) 

IF NOT STATE AND KEY$<>"" THEN N=71-(N-64 AND 7) 
AS=LEFT$(A$,22) +CHRS(N) +MID$ (A$, 24) 
NEXT 
WAIT RND(1)#20+1 
UNTIL STATE 
PING: WAIT 3O:PING:PRINT: PRINT SPC(14)3 "WELL DONE" 
PRINT:PRINT E$+"B"+E$+"L Another go? Y or N" 
REPEAT:GET G$:UNTIL G$="Y" OR G$="N" 

IF 6$="Y" THEN RUN 
CLS:PRINT “Bye for now.":POKE #26A,3:END 
REM ## SET UP ## 
PAPER @: INK 46:CLS:PRINT CHR$(4) 
PRINT E$+"J"sSPC(12); "STOP ‘EM"*:PRINT: PRINT CHR$(4) 
FOR I=@ TO 4:PRINT: NEXT 
PLOT 18,12,94 
POKE #26A,2 ‘Disables cursor 
FOR [=8 TO 11: BS=BS+E$+"F"+CHR$ (255) :NEXT 
AS=LEFT$(B$,22)+"A"+MID$ (BS, 24) 
AS=LEFT$(A$,14)+"A"+MID$ (A$, 14) 
AS=LEFT$(A$,2)+"A"+MID$(AS, 4) 
PLOT 4,146,"Press the <space bar> to stop ‘ea" 
RETURN 
REM ## INFOrmation ## 
PAPER @: INK 7:CLS 
E$=" “+CHR$(27):PRINT CHR$(4) 
PRINT E$t"J"s3SPC(1i)3 "STOP ‘EM"sPRINTSPRINT 
PRINTsPRINT ES+"J"sSPC(4)3 "by Czes Kosniowski" 
PRINTS: PRINT CHR$(4): PRINT: PRINT 


66@ PRINT “Press the space bar to change the" 

67@ PRINT “colour of the moving lights.":PRINT 

68@ PRINT "Try to make them cyan (light blue).":PRINT 
698 PRINT "At what speed do you want the lights" 

708 PRINT “to move? @ (fast) to 9 (slow): "35 

710 ‘REPEAT: G$=KEY$:GG=RND(1)sUNTIL G$<"s" AND G$>"/" 
728 ZZ=VAL(G$) +1 

73@ RETURN 


The main routine 


The lights are stored in the string A$. Each light occupies four characters. 
The moving effect is achieved by moving the last four characters (represent- 
ing the light on the right) to the front of A$. 

If a key is pressed then the light in the sixth position is changed. A light in 
that position is on if the value of N is 65, or off if it is 70. The statement N = 
71 - (N- 64 AND 7) changes 70 to 65 and vice versa. 

The speed with which the lights move from left to right is controlled by 
two WAIT statements. One is determined by the player, the other is random. 


The subroutines 


400 SETUP 
This creates the string A$ of lights with three lights on. The string B$ is the 
string of lights with all lights off. 


600 INFO 


This contains a brief description of the game. The player has an option to 
decide at what speed the lights move from left to right. 
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13 Round and Round 


With this program you can produce some spectacular curves. Technically 
speaking, the computer will plot the graphs of polar functions — but with a 
slight twist. The amount of twisting depends on the values of A and B that 
you input when requested to do so. 

See Appendix 1 for some notes about saving screen pictures via your tape 
recorder. 
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10 REM #H#eHRERHERESERE SESE 
20 REM * ROUND AND ROUND *# 
ZO REM HHHRHHREREEREESEREE 
4@ REM 

5@ PL=500 


100 
118 
128 
13@ 
148 
158 
168 
178 
188 
198 


200 : 


218 
228 
238 
248 
258 
508 
518 
528 
538 
548 
55@ 
568 
578 
588 
598 
608 
618 
628 
638 
648 
658 
668 
678 
68@ 
698 


REM ## THE MAIN PROGRAM ## 

INK 6:PAPER @:CLS:FOR I[=8 TO 6:READ AS(I): NEXT 
REPEAT 

: TEXT: CLSs:PRINT: ZZ=FRE(1) 

: E$=" "+CHR$(27) : DS$=E$+" J" +CHRS$ (4) 

: XMID=119: YMID=99: PP=2#PI 

: XRATIO=XMID#. 6: YRATIO=YMID#.9 

: PRINT D$;SPC(7);"ROUND AND ROUND“:PRINT D$ 

: PRINT:PRINT:PRINT D$;SPC(6)5; "by Czes Kosniowski" 
: PRINT D$:PRINT:PRINT “@ QUIT" 

: FOR [=8 TO S4:PRINT [+13" R = “sAS(T)ENEXT 

: PRINT:PRINT “Type in the number of the equation." 
: REPEAT: GET G$: UNTIL G$>="@" AND G$<"8" 

: G=VAL(6$)-1:I1F 6>=@ THEN GOSUB PL 

UNTIL 6<@ 

CLS:PRINT “Bye for now. "sEND 

REM * PLOTTING # 

PRINT SPC (17-LEN(A$(6))/2);A$(6) 

IF G=@ THEN DEF FNA(Z)=1 

IF G=1 THEN DEF FNA(Z)=SIN(2#Z) 

IF G=2 THEN DEF FNA(Z)=SIN(7#Z) 

IF G=3 THEN DEF FNA(Z)=(1+2#C0S(Z))/3 

IF G6=4 THEN DEF FNA(Z)=(1+C0S(Z))/2 

IF G=5 THEN DEF FNA(Z)=(1+SIN(2#Z))/2 

IF G=S THEN DEF FNA(Z)=(1+2#C0S(2#2))/3 

PRINT: PRINT “Type in values of A and B then press" 
PRINT “<return>. For standard plot use A=1" 

PRINT “and B=i."sPRINT: INPUT “Value of A“sA 

INPUT "Value of B";B 

HIRES: POKE #26A,2 

PRINT SPC(13-LEN(A$(6))/2)sAS(G)3" A="sA3" B="3B 
FOR Z=@ TO PP+.@1 STEP .@1 

: X=XMID+XRATIO#COS (A#Z) #FNA(Z) 

: Y2YMID+YRATIO#SIN(B#Z) #FNA(Z) 

: CURSET X,Y,1 

NEXT 
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700 PINGSFOR I=1 TO 6: INK I:WAIT 75:NEXT 

718 E$=" "+CHR$ (27) 

720 PRINT ESt+"B°+E$t"L Press Y to continue" 
73@ REPEAT: UNTIL KEY$="" 

748 REPEAT:GET G$:UNTIL G$="Y" 

758 RETURN 

808 DATA 1,SIN(2#Z) ,SIN(7#Z) ,1+2#COS(Z) ,1+COS(Z) 
818 DATA 1+SIN(2#Z) ,1+2#C0S5(2#2) 


The main routine 


This displays the various choices open to you — try them all. With option 1 
(and with A = 1 and B = 1) the result will be a circle. 


The subroutine 
500 PL 


This subroutine essentially plots the selected graph. On completion it waits 
for you to press Y which returns you to the main menu. 
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14 Cascade 


In cascade you have to get a ball to drop from the top of the screen to the 
bottom. A ball may be dropped from any one of ten positions by pressing 
one of the keys 0 to 9. 

There are several obstacles for your ball to overcome. If the ball hits an 
obstruction it may be reflected, deflected through a right angle or swallowed 
up. An 0 deflects the ball, an X reflects it while a solid red square eats it up. 

The obstructions may change when hit. 


CASCADE 
1 2 3 4 3 & 7 8 9? @ 
00,,00 X¥ 00 OX 00,,0% 00 XX 
0 0 f 
ae 
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10 REM *###eeeeHHRE 
2@ REM * CASCADE *# 
3Q REM HHHHHREHERE 
40 REM 


58 C 
100 
118 
120 
138 
142 
158 
148 
178 
188 
198 
200 
218 
220 
230 
240 
258 
268 
270 
288 
290 
308 
508 
518 
528 
538 
540 
55a 
1800 
1818 
1828 
1038 
1040 
1058 
1868 
1078 
1088 
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HANGE=50@: SETUP=1000: INFO=2800 
REM #* THE MAIN PROGRAM ## 
GOSUB INFO:GOSUB SETUP 
REPEAT 

: REPEAT:GET G$:UNTIL G$>"/" AND G$<":" 

: X=2+3#VAL (6$) -30#(G$="0") 

: Y=4:A=0:B=1 

: PLOT X,Y,Z 

: STATE=FALSE 

: REPEAT 
: U=X+A: V=Y+B:W=SCRN(U,V) 
: IF U<4 OR U>33 OR V4 THEN SHOOT: STATE=2 
: IF V>24 THEN PING:WAIT 20:PING:STATE=1 
: IF W>78 THEN GOSUB CHANGE 
: PLOT X,Y,32:X=X+A: Y=Y+B 
: IF STATE<2 THEN PLOT X,Y,2Z 
: UNTIL STATE 

UNTIL STATE=1 

PLOT 8,26,S$ 

REPEAT:GET G$:UNTIL G$="Y" OR GS$="N" 

IF 6$="Y" THEN RUN 

CLS:POQKE #26A,3:PRINT "Bye for now. "“:END 
REM ## CHANGE #+# 

IF W=255 THEN ZAP:STATE=2 

IF W=88 THEN A=-A:B=-B:PING 

IF W=79 THEN C=-B:B=A: A=C:PING 

PLOT U,V,A(FNR(P-3)) 

RETURN 

REM *## SET UP ## 

DEF FNR(X)=INT(RND(1) #X) 

PAPER @: INK 6:CLS:Z=126 

PRINT E$+"B"3SPC(12) 3 “CASCADE":PRINT 
PRINT E$+"B "3 

FOR T=1 TO 9:PRINT CHR$(48+1)3SPC(2)3:NEXT 
PRINT "@" 

P=7:FOR I1=8@ TO P-1:READ A(I):NEXT 

FOR J=4 TO 33 


1098 : IF J#INT(J/3)<>3-2 THEN PLOT J,4,A(1+FNR(2)) 
1188 NEXT 

1118 FOR I=5 TO 24 

1128 : PLOT 4,1,A(1) 

1130 : FOR J=4 TO 32 STEP & 

114@ : IF RND(1)<.5 THEN PLOT J+FNR(4),1,ACFNR(P)) 
1158 : NEXT 

116@ : PLOT 33,1,A(2) 

117@ NEXT 

1188 FOR J=5 TO 32 STEP 3:PLOT J,S+FNR(17) ,A(2) NEXT 
1198 S$=CHR$(2)+CHR$(12)+"Another go? Y or N" 

1288 RETURN 

1218 DATA 255,88,79,79,32,32,32 

2000 REM ## INFOrmation ## 

2010 PAPER @: INK 4:CLS:POKE #26A,2:PRINT 

2020 E$=" "+CHR$(27):DS=E$+"J"+CHR$ (4) 

2030 PRINT D$3SPC(12);"CASCADE":PRINT D$sPRINTsPRINT 
2048 PRINT D$;SPC(6)3"by Czes Kosniowski":PRINT D$:PRINT 
2058 PRINT “Try to get a ball to reach the bottoa." 
2060 PRINT "Press one of the keys @ to 9 te" 

2078 PRINT "release a ball. The obstructions will" 
2080 PRINT “either eat your ball, deflect it or" 
2090 PRINT "else reflect it.":PRINT 

2108 PRINT “The red squares eat a ball. The 0’s" 
2118 PRINT “deflect a ball and the X‘s reflect it." 


2120 PRINT E$+"B"+E$+"L- Press Y to start." 
213@ REPEAT: G$=KEY$:GG=RND(1): UNTIL G$="Y" 
2148 RETURN 


The main routine 


The ball continues to move until it meets an obstruction after which the 
direction of movement may change or the ball may be consumed. 

If STATE is FALSE then the ball is active. The value of STATE becomes NOT 
FALSE when it is either consumed or reaches the bottom of the screen. 

If STATE = 1 the game ends (unless you want to play again). If STATE = 2 
then your ball has been consumed and you have to try again. 


The subroutines 


500 CHANGE 
This is used when the ball meets an obstruction. It changes the direction in 
which the ball moves and the nature of the obstruction just met. 
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1000 SETUP 
A random arrangement of obstacles is produced by this subroutine. 


2000 INFO 
Brief details of the game are provided by this subroutine. 
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15 La Cucaracha 


Just a simple tune with some graphics portraying the notes. 


La Cucaracha 
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10 REM £HHHHHHRHHEHKEREES 

2@ REM * LA CUCARACHA * 

JO REM HHHHRRHERHHERERE 

48 REM 

5@ INFO=500 

10@ REM *#* THE MAIN PROGRAM ## 

11@ GOSUB INFO: J=2:K=0 

12@ REPEAT 

138 : T=I+it:sPLOT 14,24,"La Cucaracha" 

140 : IF I>MAX THEN [=O:J=J+i:CLS:INK J: IF J>5 THEN J=2 
15@ : B=INT((A(I)-1)/12) 

168 : K=K+i:IF A(I)=@ AND K>27 THEN K=@8:CLS 

17@ : PLOT K,24-A(1) ,95+63# (A(T) =@) 

18@ : IF AC(I)>@ THEN MUSIC 1,J+B,A(1)-12#B,@:PLAY 3,@,1,L 
198 : WAIT S*T(T) 

20@ UNTIL KEY$="Q" 

21@ PLAY 0,8,8,8 

228 PRINT ES$s"B"SE$ 3 "L Another go? Y or N"sSPC (18) 
23@ REPEAT:GET G$:UNTIL G$="Y" OR G$="N" 

248 IF G$="Y" THEN RUN 

25@ CLS:PRINT "Bye for now.":POKE #26A,3:INK 7: END 

5SQ@Q@ REM ## INFOrmation #+# 

518 INK 5:PAPER @:CLS:DEF FNR(X)=INT(RND(1) #X) 

520 E$=" "4CHR$(27): DS=E$t+"JI"+CHR$(4) sPRINT 

53@ PRINT D$;SPC(9);"LA CUCARACHA":PRINT D$sPRINT: PRINT 
548 PRINT D$;SPC(4)3"by Czes Kosniowski":PRINT D$:PRINT 
55@ PRINT "Just a simple tune..... .":sPRINT 

540 PRINT “Press Y to start......0. a 

57@ REPEAT:GET G$:UNTIL G$="Y" 

58@ PRINT:PRINT: PRINT “Press @ to quit. "$; 

598 DIM A(10@),T(100) sMAX=-1 

600 REPEAT: MAX=MAX+1:READ A(MAX) ,T(MAX) UNTIL A(MAX) #-1 
61@ IF MAX<>87 THEN PRINT "DATA ERROR": END 

628 MAX=MAX-1:CLS:POKE #26A,18: INK 6:L=2588 

63@ RETURN 

70@ DATA 8,1,8,1,8,1,13,3,17,1,8,1 

71@ DATA 8,1,8,1,8,1,13,3,17,5,8,1 

728 DATA 13,1,@,1 

73@ DATA 13,1,12,1,12,1,18,1,10,1,8,4,0,1 

740 DATA 8,1,8,1,8,1,12,3,15,1,8,1 

758 DATA 8,1,8,1,8,1,12,3,15,5,0,1 
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760 DATA 20,1,@,1 
77@ DATA 22,1,20,1,18,1,17,1,15,1,13,4,0,1 
78@ DATA 8,1,8,1,8,1,13,3,17,1,8,1 

79@ DATA 8,1,8,1,8,1,13,3,17,5,0,1 

B@@ DATA 13,1,0,1 

B10 DATA 13,1,12,1,12,1,18,1,10,1,8,4,@,1 
820 DATA 8,1,8,1,8,1,12,3,15,1,0,1 

830 DATA 8,1,8,1,8,1,12,3,15,5,0,1 

848 DATA 20,1,0,1 

Q5@ DATA 22,1,20,1,18,1,17,1,15,1,13,2 
860 DATA 13,1,13,1,13,1,0,6 

87@ DATA -1,-1 


The main routine 


As each note is played, a character is drawn at a suitable position on the 


screen. 
The notes are stored in the array A(1I) and the time interval for which 


they should be played is stored by T(1). 
Press @ to stop the program. 
See Appendix 4 for some musical notes. 


The subroutine 


500 INFO 
This contains the credits. The notes and time intervals are read into the 
arrays A(I) and T(1). 

A line for data error checking is included. 
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16 Clock Puzile 


This game is based on a sliding blocks puzzle invented by Czes Kosniowski 
and John Ewing (see Puzzle it out: Cubes, groups and puzzles published by 
Cambridge University Press). 

There are twelve counters, numbered 1 to 12, and one empty space ona 
board as shown below. 





The object is to move the counters around so that they appear in sequence 
as on a clock face. 
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The cursor keys are used to move the empty space around the playing 
area. 


The puzzle is lots of fun, at times infuriating and certainly not easy. 


li 12 
1Q@ CLOCK 
9 CLOCK 3 


8 CLOCK 


oe & 
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18 R 
20 R 
38 R 
48 R 
5@ 
180 
110 
128 
138 


140: 


158 
142 
178 
188 
198 
208 


210 : 


220 
238 
240 
258 
268 
278 
288 
298 
308 
318 
500 
518 
528 
1008 
1018 
1828 
1038 
1040 
1058 
1042 
1078 
1080 
1098 
1188 
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EM HERRHHHHHHEREREES 

EM * CLOCK PUZZLE +* 

EM HHXHRRHHEHEREEES 

EM 

OVE=500: SETUP=1000: INFO=2000 
REM *## THE MAIN PROGRAM #+# 
GOSUB INFO:GOSUB SETUP: STATE=FALSE 
REPEAT 

: ANSWER=FALSE 
REPEAT 
: REPEAT:GET G6$:G=ASC(G$):UNTIL G>7 AND 6<12 OR G=81 
: U=X+(G=8)-(6=9) :V=V¥+(G=11)-(6=18) 

: IF U>=@ AND U<3 AND V>=@ AND V<S THEN ANSWER=TRUE 
: IF U=i AND (V=i OR V=3) THEN ANSWER=FALSE 
: UNTIL ANSWER 
: W=S#U+VsP$(Z)=P$(W)sP$(W)=" " 
GOSUB MOVE: X=U:Y=V:Z=W:GOSUB MOVE 

: STATE=TRUE 

: FOR I=@ TO 14:STATE=STATE* (P$(1)=Q$(1)) 2 NEXT 
: IF G=81 THEN STATE=2 

UNTIL STATE 

IF STATE<2 THEN PING: WAIT 3@:PING: 

PLOT 24,1,CHR$(12)+CHR$(2)+"Another go?" 
PLOT 26,3,CHR$(12)+CHR$(2)+"Y or N" 
REPEAT: GET 6G$:UNTIL G$="Y" OR G$="N" 

IF 6$="¥" THEN RUN 
CLS:POKE #26A,3:PRINT "Bye for now. ":END 
REM ** MOVE ## 
PLOT 6+5#X,24+5#Y,P$(Z)sPLOT S+5#X,3+5#Y,P$(Z) 
RETURN 

REM *# SET UP ## 

E$=CHR$ (27) : F$=CHR$ (255) 

PAPER @: INK 7:CLS 

BS=" "FE$S+"D"+F $s XS=ES+"B"+BE 
AS=BS+X$+X$+X$: YS=BS 

FOR I1=8 TO 4: Y$=YS+F$: NEXT 
CS=BStE$t+"B"+V$S4X$ 

FOR 1=8 TO 14:BS$3B$+F$: NEXT 

REM PRINT BOARD 

PRINT CHR$(30)+B$ 

FOR I=@ TO 4:FOR J=i TO 5 


1118 
1128 
1138 
1140 
1158 
1168 
1178 
1182 
1198 
1280 
1218 
1220 
1238 
1248 
1250 
1240 
1278 
1288 
1298 
1300 
1310 
1320 
1330 
1348 
1358 
1348 
1370 
1880 
2000 
2018 
2020 
2038 
2040 
2058 
2042 
2078 
2088 
2090 
2100 
2118 
2120 


: IF 2#INT(I/2)=I AND J<5 THEN PRINT A$ 

: IF 2*INT(I/2)<>1 AND J<5 THEN PRINT C$ 

: IF J=5 THEN PRINT B$ 

NEXT: NEXT 

R$=CHR$(1):PLOT 25,4,R$+"11 12 | Nia 

PLOT 25,9,R$+"10 CLOCK 2":PLOT 25,12,R$+" 9 CLOCK 3" 
PLOT 25,15,R$+" 8 CLOCK 4" 

PLOT 25,18,R$+" 7 4 a" 

REM THE PIECES 

DIM P$(14) ,Q$(14) 

FOR I=1 TO 9:P$(1I)=" “+CHR$(48+1) sNEXT 

FOR [=@ TO 2:P$(10+1)="1"+CHR$(48+1): NEXT 
P$(O)=" "SP$(13)=FS+F$ 

FOR [=@ TO 14:READ K:Q$(1)=P$(K) NEXT 

FOR I=@ TO 14:P$(1)=Q$(1) NEXT 

REM MIXING 

FOR I=1 TO 10 

: K=INTCRND(1)#6)+9#INT(RND (1) #2) 

: L=INT(RND(1)#46)+9#INT(RND (1) #2) 

: R$=P$(K)sP$(K)=P$(L) sP$(L) =RF 

NEXT 

REM DISPLAY PIECES 

FOR X=@ TO 2:FOR Y=@ TO 4 

: Z=5#X+Y:GOSUB MOVE 

NEXT: NEXT 

X=1:Y=2:2=7 

RETURN 

DATA 11,10,9,8,7,12,13,0,13,6,1,2,3,4,5 

REM ** INFOrmation #*+# 

E$=" "4+CHR$(27):PAPER @: INK 7:CLSsPRINT CHR$(4) 
PRINT E$+"J"3SPC(11)3 "CLOCK PUZZLE":PRINT: PRINT 
PRINT: PRINT E$t+"J"3SPC(8)3 "by Czes Kosniowski" 
PRINT CHR$(4):PRINT 

PRINT “Rearrange the numbers on the clock" 
PRINT "face into their correct postion." 

PRINT: PRINT "Use the cursor keys to move the empty" 
PRINT “space. "s;E$t"A Press @ to Quit":PRINT: PRINT 
PRINT E$+"L"+E$+"B Press Y to play" 

POKE #26A,2 ‘Disables cursor 

REPEAT: G$=KEY$:GG=RND(1):UNTIL G$="Y" 

RETURN 
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The main routine 


There are two parts to the main routine. The first part waits for one of the 
cursor keys (ASC values 8 to 11) or the @ key (ASC value 81) to be pressed. Ifa 
cursor key is pressed, and if it indicates a valid position for the empty space 
to occupy then a move is made. If @ is pressed the game terminates. 

The second part checks to see if the squares are in the correct positions. 


The subroutines 


500 MOVE 
This simply plots the appropriate number (or empty space) where it is 
needed. 


1000 SETUP 
This is a rather long but straightforward subroutine to produce the square 
clock display. 

In addition, the computer mixes up the pieces ready for play. 

Note. If you decide to alter the number of times the computer mixes up 
the pieces, make sure that it is still an even number of times. If this number is 
odd then the puzzle becomes impossible to solve! 


2000 INFO 
Brief details of the game are contained in this subroutine. 
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17 Blank Out 


There are nine windows numbered 1 to 9. The curtains are drawn open. A 
lady walks behind these windows shining a light. She walks from window 1 
to 9 and then jumps back to window 1 and repeats the process. If she is 
behind a window when you press the corresponding number of the 
window, then the curtains are closed. The object of the game is to draw all 
the curtains. 

Note. There is a small bug in the program whereby you can cheat if you 
want to — details will not be given. 


{286 RRR 33538 


BLANK OUT 
Press the right key at the right time 





67 


18 R 
20 R 
38 R 
4@R 
58 B 
100 
118 
128 
130 
148 


158 : 


168 
178 
188 
198 
200 
218 
228 
508 
518 
528 
538 
548 
1000 
1010 
1820 
1038 
1048 
1850 
10840 
1878 
1088 
1898 
1188 
1118 
1128 
1130 
2000 
2018 
2028 
2838 
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EM HHERHHHHERE RH 
EM * BLANK OUT # 
EM #HHHERHHHEHES 
EM 
LANK=50@0: SETUP=1000: INFO=2000 
REM #*# THE MAIN PROGRAM #+# 
GOSUB INFO:GOSUB SETUP 
REPEAT 
: PLOT X(C),Y,Z(C) 
: CaC+i:IF C9 THEN C=1i:WAIT 1+RND(1) #20 
PLOT X(C),Y,W(C)SWAIT ZZ 
: IF KEY$=CHR$(Z(C)) THEN GOSUB BLANK 
UNTIL STATE 
PING: WAIT 2@:PING 
PRINTSPRINTSPRINT E$+"L Another go? Y or N" 
REPEAT:GET G$:UNTIL G$="Y" OR G$="N" 
IF G$="Y" THEN RUN 
POKE #26A,3:CLS: INK 7:PRINT “Bye for now. ":END 
REM ## BLANK ## 
Z(C)=32 
FOR I=-1 TO isPLOT X(C)-1,Y+tI," "SNEXT 
W(C)=32:MM=MM+1:IF MM>8 THEN STATE=TRUE 
RETURN 
REM ## SET UP #+# 
PAPER @: INK 2:CLS 
PRINT: PRINT: PRINT: PRINT 
FOR T=1 TO 9sX(1)=4#1-2:72(1) =48+2:W(1)=255: NEXT 
FOR J=8 TO 2:FOR I=1 TO 9 
: FOR K=@ TO 2:PRINT CHR$(Z(1))3:NEXT 
: PRINT " "3 
NEXT: PRINT: NEXT 
Y=5: Z=255:C=1:MM=0 
POKE #26A,2 ‘Disables cursor 
PLOT 13,11,CHR$(4)+"BLANK QUT" 
PLOT 0,13,"Press the right key at the right time" 
STATE=FALSE 
RETURN 
REM ## INFOrmation #+# 
PAPER @: INK 7:CLS:PRINT CHR$(4) 
E$=" "“+CHR$(27) 
PRINT E$+"J"sSPC (10) 3 "BLANK OUT":PRINT: PRINT 


2040 PRINT: PRINT E$+"J"3SPC(6)3;"by Czes Kosniowski" 
2058 PRINT CHR$(4):PRINT: PRINT 

2068 PRINT "Blank out the numbered windows by" 

2070 PRINT “pressing the right key at the right" 

2088 PRINT “time. "3SPC(5)+E$+"AGOOD LUCK": PRINT 

2098 PRINT:PRINT “At what speed do you want to play?" 
2108 PRINT "@ (fast) to 9 (slow) "$5 

2118 REPEAT: G$=KEY$:GG=RND(1):UNTIL G$>"/" AND G$<":" 
2128 ZZ=VAL(G$) +1 

213@ RETURN 


The main routine 


The main loop checks to see if the correct key has been pressed. 


The subroutines 


500 BLANK 

This draws the curtain in the appropriate window, i.e. blanks out the 
display. Curtain number C is shut if W(C) = 32. It is open if W(C) = 255. The 
reason is that CHR$(32) is a blank square while CHR$(255) is a solid, 
coloured square. 


1000 SETUP 
The array X(1) stores the position of window I. The array W(1) stores the 
information about whether the curtain in window I is open or not. 


2000 INFO 
This subroutine prints out brief instructions for the game. In addition the 
player is asked for the speed of play. 
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18 Surfaces 


This is a short program which produces some vivid three-dimensional 
pictures of surfaces. 

Note. The whole process is quite time consuming but well worth the wait. 
If desired you could save the result on tape so that you wouldn’t have to 
replot every time. See Appendix 1 for further details. 
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10 REM HH#HRHREHHHRE 
20 REM * SURFACES * 
3B REM HHHHHHHRHREE 
48 REM 

58 PL=500 


108 
110 
128 
130 
140 
158 
140 
178 
188 
198 
208 
210 
228 
230 
248 
250 
268 
508 
518 
520 
538 
540 
558 
568 
578 
580 
598 
608 
618 
628 
638 
648 
658 
668 
678 
680 


REM ## THE MAIN PROGRAM ## 

INK 6:PAPER @:CLS:FOR I=@ TO S:READ A$(I):NEXT 
REPEAT 

: TEXT: CLSs:PRINT: ZZ=FRE (1) 

: E$=" "“4CHR$(27) :DS=E$+"J"+CHR$ (4) 

: XMID=119: YMID=99:PP=2#PI:S=SQR(2)/2:SS=XMID#s 
:-PRINT D$;SPC(11);"“SURFACES":PRINT D$ 

PRINT: PRINT 

: PRINT D$;SPC(6)3"by Czes Kosniowski" 

PRINT D$:PRINT 

: FOR I=8 TO SsPRINT Is A$(1)s PRINT: NEXT 

: PLOT 26,11,"“where":PLOT 22,13, "R=SQR(X#X+Y#Y) " 
: PRINTsPRINT "Please type in your selection. "3 
: REPEAT: GET G$:UNTIL G$>="@8" AND G$<"7" 

: G=VAL(6$):1F G>@ THEN GOSUB PL 

UNTIL 6=8 

CLS:PRINT "Bye for now. ": END 

REM ## PLotting #+# 

HIRES: POKE #26A,2 

PRINT SPC(18-LEN(A$(G))/2) 3A$(G) 

FOR A=-SS TO SS+5#S 

: MAX=-YMID: TT=SS+A-10#S5#INT( (A+ABS(A)) /18/S) 

: FOR B=-TT TO TT+S#4 STEP 10#S 

: X=$#(A+B): Y=S#(B-A) :s Z=BsR=SOR(X#X+YV#Y) 

: IF G=i THEN Z=12#COS(R/5) +B 

: IF G=2 THEN Z=YMID#EXP(-R#R/ 488) +B 

: IF G=3 AND R<>@ THEN Z=2*XMID#SIN(R/S) /R+B 

: IF G=4THEN 2=12#COS(X/10) *#COS(Y/10) +B 

: IF G=5 AND R<>B THEN Z=X#V#(X-Y¥) #(X+Y) /(1808#R) +B 
: FB=1:1IF Z<MAX THEN FB=3 ELSE MAX=2Z 

: U=XMID+tA: V=YMID-Z#S 

: IF V>1 AND V<2#YMID THEN CURSET U,V,FB 

: NEXT 

NEXT 

PING:FOR I=1 TO 6: INK IsWAIT 75sNEXTsE$=" “+CHR$(27) 
PRINT ES+"B°+E$+"L Press Y to continue" 
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69@ REPEAT: UNTIL KEY$="" 

700 REPEAT:GET G$: UNTIL G$="Y" 

71@ RETURN 

B8@@ DATA QUIT,Z = COS(R),Z = EXP(-R#R) 
810 DATA Z = SIN(R)/R,Z = COS(X)#COS(Y) 
828 DATA The monkey saddle 


The main routine 


The main menu to the program is presented. You are asked to select the 
surface you want plotted. 


The subroutine 


500 PL 

This plots the selected surface. The picture is put into perspective by using the 
variables A, B, and X, Y. Hidden points are not plotted, this is achieved by 
checking whether the current point to be plotted is less than MAX or not. 
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19 Blue Danube 


Just a simple tune, with apologies to Strauss. 
See Appendix 4 for some general musical notes. 


10 REM HEHHHHHRHRHHERE 
2@ REM * BLUE DANUBE # 
3O REM HHHHERERERREEEE 
4@ REM 

5@ INFO=500 


100 
118 
120 
130 
148 
158 
140 
178 
188 
198 
208 
218 
228 
238 
248 
588 
518 
520 
538 
548 


REM #*# THE MAIN PROGRAM #+# 

GOSUB INFO: J=3:K=0 

REPEAT 

: PLOT 6+A(I),26-A(I) ,32 

: T=f+i1:1F I>MAX THEN [=O:J2J+i2 IF J>5 THEN J=3 

: B=INT((AC(I)-1)/12) 

: PLOT 6+A(I),26-A(I) , 144d 

: IF ACI)>@ THEN MUSIC 1,J+B,A(I)-12*B,@:PLAY 1,0,1,L 
: WAIT B8#T(T) 

UNTIL KEY$="Q" 

PLAY 0,8,8, 

PRINT ES; "“B"3E$3 "L Another go? Y or N"3SPC(18) 
REPEAT: GET G$:UNTIL 6$="Y" OR G$="N" 

IF 6$="Y" THEN RUN 

CLS:PRINT “Bye for now. "sPOKE #246A,3: INK 7sEND 

REM ## INFOrmation ## 

INK SsPAPER @sCLS:DEF FNR(X)=INT(RND(1) #X) 

E$=" "+CHR$(27) s DS=E$+"J"+CHR$( 4): PRINT 

PRINT D$sSPC(9)s "BLUE DANUBE“:PRINT D$:PRINT: PRINT 
PRINT D$;SPC(6); "by Czes Kosniowski":PRINT D$:PRINT 
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558 
568 
578 
580 
598 
680 
618 
620 
638 
640 
708 
710 
720 
730 
748 
750 
760 
770 
788 


PRINT "Just a simple tune...... "sPRINT 

PRINT “Press Y to start....00.."3 

REPEAT: GET G$: UNTIL G$="Y" 

PRINT:PRINT: PRINT “Press @ to quit. "3; 

DIM A(1O00),1T(100):MAX=-1 

REPEAT: MAX=MAX4+1:READ A(MAX) ,T(MAX): UNTIL A(MAX)=-1 
IF MAX<>69 THEN PRINT “DATA ERROR": END 
MAX=MAX-1:CLS:POKE #26A,10: INK 6:L=2500 

PRINT: PRINT D$3SPC(9);"BLUE DANUBE":PRINT D$ 


RETURN 
DATA 1,2,1,2,5,2,8,2,8,4,20,2,20,4,17,2,17,4 
DATA 1,2,1,2,5,2,8,2,8,4,20,2,20,4,18,2,18,4 
DATA 3,2,3,2,6,2y18,2,10,4,22,2,22,4,18,2,18,4 
DATA 3,2,3,2,6,2,10,2,10,4,22,2,22,4,17,2,17,4 
DATA 1,2,1,2,5,2,8,2,13,4,25,2,2544,20,2, 20,4 
DATA 1,2,1,2,5,2,8,2,13,4,25,2,25,44 22422244 
DATA 3,2,3,2,6,2,10,2,10,7,7,2,8,2,17,8 

DATA 13,2,5,2)5,4,3)2,18,4,8,2,1,6 

DATA -1,-1 


The main routine 


This plays each note for the required length of time. At the same time the 
pitch of the note being played is displayed graphically. 
Each time the tune is played the key is changed. 


The subroutine 


500 INFO 
The credits are contained here. When these are finished the program reads 
the necessary DATA, i.e. the notes and time intervals. 
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20 Snake 


This program is an action game in which you have to control a creature (a 
snake) using the cursor keys. Try to make the snake eat the food but avoid 
the rocks and wall (the edge of the screen). In addition don’t crash into 
yourself. Each time the snake eats some food it gets longer and moves a little 
more sedately. Success is achieved when the snake is 10 units long. It’s quite 
addictive trying to feed that ever-hungry growing snake. 
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10 REM #4448222 

28 REM # SNAKE +# 

38 REM ###eR RHEE 

4@ REM 

5@ CHECK=40@: DIRECT=500: FOOD=400 
68 SETUP=1000: CAR=1200: INFO=2000 


100 
118 
128 
138 
148 
158 
168 
178 
188 
198 
200 
218 
220 
230 
248 
258 
400 
418 
420 
430 
440 
588 
518 
528 
530 
600 
618 
628 
630 
648 
658 
668 


REM *#* THE MAIN PROGRAM #+# 

GOSUB INFO:GOSUB SETUP: GOSUB FOOD 

REPEAT 

’ K$=KEY$:IF K$<>"" THEN GOSUB DIRECT 

: FOR Ist TO 1 STEP -isP(1)=P(I-1):Q(1)=Q(1-1) NEXT 
: P(@)=P(8)+DP:@(@)=@(8)+DG:PQ=SCRN(P (8) ,8(@)) 

: PLOT P(@),Q(8),RsPLOT P(L) ,Q(L),32 

: IF P@<>32 THEN GOSUB CHECK 

UNTIL STATE OR L>18 

IF L>1@ THEN PLOT 15,0,"WELL DONE"“:PING: WAIT 10:PING 
IF STATE THEN PLOT 17,0,"SPLAT":PAPER 1 

WAIT 2@:PAPER @:PRINT 

PRINT E$+"L"3SPC(8)3;"Another go? Y or N";SPC(18) 
REPEAT: GET G$:UNTIL 6$="Y" OR G$="N" 

IF G$="Y" THEN RUN 

CLS:PRINT “Bye for now. "“:POKE #26A,3: INK 7:END 
REM ## CHECK ## 

IF P@=R THEN SHOOT: STATE=1 

IF PQ=W THEN EXPLODE: STATE=2 

IF P@=C THEN ZAP:GOSUB FOOD 

RETURN 

REM #* DIRECTion ## 

KK2ASC(K$): IF KK<8 OR KK>11 THEN RETURN 
DP=(KK=8) -(KK=9) : DQ=(KK=11)-(KK=1@) 

RETURN 

REM #* FOOD #+# 

FOR I=8 TO 3 

REPEAT: A=FNR (36) +2: B2FNR(25) +i: UNTIL SCRN(A,B)=32 
IF I#®@ THEN PLOT A,B,C:L=L+1 

IF I>@ THEN PLOT A,B,W 

NEXT 

RETURN 


1008 REM ## SETUP #+# 
101@ PAPER @: INK 2:CLS:R=37:DIM P(28) ,Q(20):W=255 
1028 FOR X=1 TO 38:PLOT X,@,WsPLOT X,26,W:NEXT 
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1038 
1048 
1058 
10848 
10872 
1088 
1098 
1180 
1208 
1210 
1220 
1300 
1318 
2000 
2018 
2828 
20308 
2040 
2058 
2068 
2678 
2080 
2890 
2108 
2118 
2128 
2130 


FOR Y=1 TO 25:PLOT 1,Y,W:PLOT 38,Y,Ws:NEXT 
P(O)=30:P(1)=312P(2)=32:0(0)=22:0(1)=22:0(2) =22 
L=1:FOR I=@ TO L:PLOT P(I),Q(1) ,ReNEXT 
DP=-1:DQ=0:C=38: START=#B400+R*#8: AA=#A080 

POKE AA,2:1F PEEK(AA)<>2 THEN START=START-#8000 
GOSUB CAR: START=START+8:60SUB CAR 

STATE=8 

RETURN 

REM ## CAR ## 

FOR I=START TO START+7:READ XsPOKE I,X:NEXT 
RETURN 

DATA 12,12,30,63,63,30,12,12 

DATA 21,21,14,14,4,4,4,4 

REM *#* INFOrmation #*# 

INK 46:PAPER @:CLS: DEF FNR(X)=INT(RND(1) #X) 

E$=" "4+CHR$(27) :D$=E$+"J"+CHR$(4) SPRINT 

PRINT D$;SPC(12);“SNAKE":PRINT D$:PRINT: PRINT 
PRINT D$;SPC(6)3"by Czes Kosniowski":PRINT D$:PRINT 
PRINT “Guide the SNAKE to the food. "“:PRINT 
PRINT “But - avoid the obstructions and the" 
PRINT “wall. Also don’t run into yourself! ":PRINT 
PRINT “To CHANGE direction use the cursor" 
PRINT “keys. “:PRINT 

PRINT "Press Y to start..... ears 

REPEAT: G$=KEY$: GG=RND(1):UNTIL G$="Y" 

POKE #26A,2 

RETURN 


The main routine 


The snake continues to move unless it hits an obstacle. The direction in 
which the snake moves is changed by using the cursor keys. The main 
routine scans the keyboard and changes the direction of the snake if 
appropriate. It also checks to see if the snake has met an obstacle. 


The subroutines 


400 CHECK 
If the head of the snake moves to a position which is not an empty space 
(ASC code 32) then this subroutine is used. The snake can either hit a rock or 
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wall (when P@ = W), or crash into itself (when P@ = R) or eat some food (when 
PQ=C). 


500 DIRECT 
This subroutine is called into play when a key is pressed. If one of the cursor 
keys is pressed then the corresponding direction of movement is calculated. 


600 FOOD 
Not only does this subroutine decide where to place some food, it also 
places two rocks on the screen. 


1000 SETUP 
This draws the surrounding wall and creates two custom characters (for the 
snake and food). 


1200 CAR 
This is a short subroutine to read the DATA and POKE it into the appropriate 
place for the custom characters. 


2000 INFO 
Brief details of the game are in this subroutine. 
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Zi Space Chase 


Deep in outer space you are the pilot of a space ship. Because of a shortage 
of fuel, you need to guide the space ship towards the energy sources which 
occasionally pass by. These energy sources look like asterisks. 

A recent planetary explosion has left a lot of debris around which you 
must avoid. Your space ship is on full thrust and you can control movement 
by using the left and right cursor keys. ; 
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10 REM #HHHHHHHEREREERE 

28 REM * SPACE CHASE *# 

SO REM HHHHHRHRHHREREE 

4@ REM 

5@ HIT=50@: SETUP=1000: INSTRUCT=2008 
108 REM ## THE MAIN PROGRAM #+% 

118 GOSUB INSTRUCT:GOSUB SETUP 

128 REPEAT 


13@ : PLOT 39#RND(1),@,38 
140 : FOR I=1 TO 20 
15@ : PLOT 39#RND(1),@,46:PLOT X,Y,32:PRINT CHR$(11); 


178 IF X<38 AND PEEK(769)=127 THEN X=X+1 

188 XY=SCRN(X,Y)sIF XY=46 OR XY=38 THEN GOSUB HIT 
198 PLOT X,Y,37 

208 : NEXT 

218 UNTIL COUNT>=MAX 

220 FOR 128 TO 39:POKE TP+1,32:NEXT 

23@ PRINT CHR$(4) 

248 PRINT E$+"J"+E$+"B"3SPC(8); "YOUR SCORE: “3SC 

258 PRINTsPRINT: PRINT: WAIT 208 

268 PRINT E$+"N"+E$+"A Another go? Yor N 

278 PRINT CHR$(4) 

28@ REPEAT: GET K$: UNTIL K@="Y" OR K$="N" 

298 IF K$="Y" THEN RUN 

308 POKE #246A,3:CLS:PRINT “Bye for now. "sEND 

500 REM #*# HIT #% 

51@ IF XY¥=46 THEN EXPLODE:PAPERI:WAIT 2@:COUNT=COUNT+1 
520 POKE TP+39,48+MAX-COUNT 

53@ IF XY¥=38 THEN PING: PAPER 2:WAIT 20:PING:SC=SC+258 
548 PAPER 3:WAIT 2@:PAPER @ 

55@ IF RND(1)<.5 THEN PLOT 39#RND(1) ,@,38 

56@ FOR I=2 TO LEN(STR$(SC)) 

578 : POKE TP+I-1,48+VAL (MID$(STR$(SC) ,1,1)) 

588 NEXT 

598 RETURN 

1000 REM #* SETUP ## 

101@ X=18:¥=21: COUNT=@: SC=8: AA=#A800:0=0 

1020 POKE AA,2:IF PEEK(AA)<>2 THEN @=#8000 

1838 START=46080+37#8-Q: TP=#BB80-Q 

1048 FCR 128 TO 7:READ J:POKE START+I,J:NEXT 


3 
168 : IF X>@ AND PEEK(769)=223 THEN X=X-1 
: 
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1058 FOR I=@ TO 7:READ J:POKE START+8+1,d:NEXT 

1068 FOR [=36 TO 39:POKE TP+I,32:NEXT 

1070 POKE TP+39,48+MAX: INK 7:PAPER @:CLS 

108@ RETURN 

110@ DATA 45,63,45,12,12,45,63,45 

1110 DATA 33,18,12,63,63,12,18,33 

2000 REM ** INSTRUCTions #*# 

2010 E$=" "“+CHR$(27):CLS:POKE #26A,108 

2020 INK 7:PAPER 1:CLS:PRINT CHRS#(4) 

2030 PRINT E$+"J"+E$+"@"3SPC(8); "SPACE CHASE" 

2040 PRINT:PRINTsPRINT: WAIT 28 

20508 PRINT E$+"J"+E$+"D by Czes Kosniowski" 

20460 PRINT CHR$(4):PRINT 

2078 PRINT:PRINT “Pilot your space ship towards the " 
2088 PRINT “energy sources - but be careful to" 

2098 PRINT “avoid the cosmic debris ....." 

210@ PRINT: PRINT “Use the left and right cursor keys” 
2118 PRINT "to move. 600D LUCK" 

212@ PRINT: PRINT 

2130 PRINT E$+"@ Number of crashes allowed?" 

2140 PRINT E$+"@Type a number between 1 and 9." 

2150 REPEAT: 6$=KEY$:G6G=RND(1):UNTIL G$>"@" AND G$<":" 
21468 MAX=VAL(G$):PING: WAIT 30:PING 

2170 RETURN 


The main routine 


The screen is scrolled down (not up) one line by use of the command PRINT 
CHR$(11). On each scroll some cosmic debris is deposited on the top line 
via the command PLOT 39*RND(1),0,38 

PEEK(769) reads the keyboard. If the left cursor key has been pressed 
this has a value of 223 (other keys also have the same value). The right 
cursor key has a value of 127. The use of PEEK(769) is faster than using the 
command KEYS. 

The whole process continues until the space ship has hit some 
predetermined amount of cosmic debris. 


The subroutines 


500 HIT 
If the space ship hits something then this subroutine comes into play. It 
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updates (with sound effects) the number of crashes and energy source hits. 
The current score is POKEd into the top line of the screen usually used for 
system messages. 


1000 SETUP 
This initializes the counters and creates two custom characters, the space 
ship and the energy sources. 


2000 INSTRUCT 


This gives brief details about the game. You are also asked how many 
crashes are permitted before a game ends. 
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22 Spell it 


In this game a word is flashed onto the screen for a brief moment. Look 
carefully because you will have to spell it out. In order to help you, you have 
some control over how quickly the word is flashed on the screen. 


SPELL IT 
WORD 8 


Type out the word and press “return? 


? CUPBORED 


No, the answer is CUPBOARD 
Fress Y to continue 
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1@ R 
28 R 
38 R 
40 R 
5@ 5 
100 
118 
128 
138 
148 
158 


168 : 


170 
188 


198 : 


208 
218 
220 
238 
248 
258 
268 
278 
280 
290 
300 
588 
518 
528 
938 
1808 
1018 
10820 
1030 
1040 
1100 
1118 
1128 
1138 
1140 
1158 
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EM HHHRHHHRHH ES 

EM * SPELL IT # 

EM HHHHHHHHRHHE 

EM 

PELL=500: SETUP=1000: INFO=2000 

REM #* THE MAIN PROGRAM #+# 

GOSUB INFO:GOSUB SETUP 

FOR I=1 TO 18 

: AS=R$(INT(RND (1) #MAX)) 

: GOSUB SPELL: PING: WAIT S@:PING:PRINT: PRINT 

: PRINT SPC(16-LEN(A$) /2) ;D$+A$ 

PRINT D$: WAIT T:GOSUB SPELL: PRINT 

: PRINT: PRINT “Type out the word and press <return>" 
: PRINT: PRINT SPC(13);: INPUT B$¢ 

PRINTS PRINT: PRINT: PRINT 

: IF A$=B$ THEN PING: SC=SC+1:PLOT 14,12,"WELL DONE" 
: IF A$<>BS THEN SHOOT: PLOT 8,12,N$+A$ 

: PRINT SPC(9)3;"Press Y to continue"; 

: REPEAT:GET G$:UNTIL 6$="Y" 


NEXT 

GOSUB SPELL:PLOT 15,3," * 

PRINT SPC(8)s"You got “sSC3;"out of 10" 
PRINTSPRINT ES+"L"+E$+"B Another go? Y or N" 


REPEAT:GET G$: UNTIL G$="Y" OR GS$="N" 

IF 6$="Y" THEN RUN 
CLS:PRINT "Bye for now. ":END 
REM ## SPELL *# 
CLSsPRINT:PRINT S$:PRINT D$+E$+"A"s PRINT: PRINT 
PLOT 15,3,CHR$(8)+"WORD"+STR$(1) 
RETURN 

REM ## SET UP ## 

MAX=-1:DIM R$(100) 

REPEAT: MAX=MAX+1:READ R#(MAX) UNTIL R#(MAX)="#" 
N$="No, the answer is “ 

RETURN 

DATA TABLE,CHAIR,BOOK,PILLOW,CUBE,RULER, ISLAND 
DATA GLASS, BUCKET, TORCH, KITCHEN, BOTTLE, TISSUE 
DATA SLEEPING, RUNNER, MISS,RUBBER,TYRE,PERSON 
DATA PLASTIC, BANANA, GLOVE, BALLOON, BEGIN, PLEASE 
DATA MEAT, TREAT ,MAID,SAID,BACK,FLOWER,CUPBOARD 
DATA PLATE, BOXES,GHOST,LOVELY,PADDLE, CHURCH 


1168 DATA SLEEP,SOLDIER, MONDAY, TUESDAY, WEDNESDAY 
1178 DATA BEDROOM, HELLO,SUNNY,PAPER,CHAIN, TWENTY 
1188 DATA THURSDAY ,UPWARDS,SELECTION,CIRCUS,PERSON 
1198 DATA MAGIC,LETTER, JUNGLE, INNOCENT, INJURY 

120@ DATA INFLUENCE, INCIDENT ,HORROR, GRAMMAR, GRAND 
1210 DATA FRINGE, VACATE, TRIAL, TREND, STARTLE 

122@ DATA REVEAL,QUIET,PROPERTY,POLICE,POISON 

1998 DATA * 

2000 REM ** INFOrmation ## 

2018 PAPER O@: INK 7:E$=" "4CHR$(27) :DS$=E$+"J"+CHR$ (4) 


2020 S$=D$+ES$+"A SPELL IT" 
2038 GOSUB SPELL:PLOT 15,3," : 
2048 PRINT D$+E$+"A by Czes Kosniowski" 


2058 PRINT D$:PRINT: PRINT: PRINT 

2068 PRINT "A word will be flashed on the screen. " 
2078 PRINT “Look carefully, then SPELL IT out! "sPRINT 
2080 PRINT:PRINT “How fast? 1 (fast) to 9 (slow) "; 
2098 REPEAT: G$=KEY$:GG=RND(1):UNTIL G$>"@" AND GE<":" 
2108 T=10#VAL(G$) 

2118 PRINT:PRINT: PRINT SPC(18)3"0.K. - get ready." 
212@ RETURN 


The main routine 


A word is chosen at random from the list in the program. Two PINGs later 
the word is flashed on the screen (in double height characters). The 
computer then waits for you to type that word. This is followed by an 
appropriate comment. 

This process is repeated ten times after which the score out of ten is given. 


The subroutines 


500 SPELL 
This is used to refresh the screen after a word has been flashed. 


1000 SETUP 

The words are stored in the string array R$(1). You may add words to this 
list if you like. If the total number of words exceeds 100, change the 
DIMension statement in line 1010. 


2000 INFO 
This contains brief information about the game. It is also used to find out 
how quickly you want the words to be flashed on the screen. 
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20 Sketch Pad 


Display your artistic abilities with this simple but effective sketch pad. You 
can draw lines horizontally, vertically or diagonally. The lines you draw 
may be visible or invisible, the choice is yours. 

Use the cursor keys to move left, right, up or down. To draw diagonally 
use the following keys: 


1 for diagonally up-left _\ for diagonally up-right 
Z for diagonally down-left / for diagonally down-right 


Pressing the I key toggles the visibility/invisibility and consequently 
determines whether the line you are drawing is visible or not. 

To quit press @. 

If you want to save any of your creations onto tape you'll have to add a 
few extra lines to the program. See Appendix 1 for further details. 
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10 REM HHXHHHHHHHHS 
28 REM * SKETCH PAD 
3Q REM HHHHHHHHHEHERE 
40 REM 

5@ SETUP=408: INFO=608 


108 REM *#* THE MAIN PROGRAM ## 

118 GOSUB INFO:G0SUB SETUP 

128 REPEAT 

13@ : CURSET X,Y,2 ‘Displays current position 

14@ : GET G$:G=ASC(G$) 

158 : A=(G=8)-(6=9) -(G=92) + (G=49) - (6=47) + (6=98) 

160 : B=(G=11)-(6=10)+(G=92) +(G=49) - (G=47) -(6=98) 

17@ : CURSET X,Y,@ ‘Erases current position 

18@ : IF X+A>239 OR X+A<@ THEN A=@:PING 

198 : IF Y+B>199 OR Y+B<@ THEN B=@:PING 

200 : U=X:V=¥:X=X+A: Y=¥+B 

218 : IF G=73 THEN FB=-NOT-FB 

220 : IF NOT ((A=@) AND (B=@)) THEN CURSET U,V,FB 

238 : Z=FRE(1) 

248 UNTIL G=81 

250 TEXT:E$=" "+CHR$(27) 

260 PRINT E$+"B"+E$+"LAnother go? Y or N":PRINT 

278 REPEAT:GET G$:UNTIL G$="Y" OR G$="N" 

280 IF G$="Y" THEN RUN 

290 CLS:PRINT "Bye for now. ":POKE #26A,3:END 

400 REM *## SET UP #+# 

41@ X=119:Y=99:FB=1:HIRES 

420 POKE #24A,18 ‘Disables cursor and click 

430 PRINT “Use cursor keys and 1, \, Z or /." 

440 PRINT:PRINT “I - Draw on/off. Q - quit."; 

45@ RETURN 

600 REM ## INFOrmation ## 

618 INK 6:PAPER @:CLS:PRINT 

620 ES=" "+CHR$(27) : DS=E$+"J"+CHR$ (4) 

63@ PRINT D$;SPC(18); "SKETCH PAD":PRINT D$sPRINT: PRINT 
64@ PRINT D$;SPC(6);"by Czes Kosniowski":sPRINT D$:PRINT 
658 PRINT “Draw a picture with this sketch pad. "s:PRINT 
668 PRINT “Use the cursor keys for left, right," 

678 PRINT “up and down. Also, use” 

68@ PRINT “1 for up-left, \ for up-right," 

698 PRINT "Z for down-left and / for down-right":PRINT 
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788 PRINT "To draw an invisible line press I," 
71@ PRINT “pressing I again draws visible lines. " 
720 PRINT "Press @ to quit. ":PRINT 


738 PRINT E$+"B"+E$+"L Press Y to start." 
740 REPEAT: GET G$: UNTIL G$="Y" 
75@ RETURN 


The main routine 


The main program waits for a key to be pressed. If one of the movement keys 
is pressed then the direction of movement (A,B) is calculated. If the point at 
(X+A, Y+B) is still on the screen then it is plotted. If the I key is pressed the 
value of FB changes from 1 to 0 and vice versa. This determines whether the 
point plotted is visible or not. 


The subroutines 

400 SETUP 

This initializes the variables and displays brief details of what the various 
keys do. 


600 INFO 
This provides some brief details about the program. 
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24 Bounce Away 


Here’s your chance to bounce a ball around the screen with a small bat. You 
can move this bat with the left and right cursor keys. The screen is set up 
with a number of rows of coloured squares. Each time the ball hits a 
coloured square it bounces off and the coloured square disappears. The 
object is to bounce the ball around until it reaches the top of the screen. The 
ball bounces off the sides, the coloured squares and your bat. To add to the 
fun there are a number of other obstacles which slowly disappear. 


You have 7 chances. 
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10 REM 4HHHHHHEHHHRHRERHERE 

20 REM *## BOUNCE AWAY #+# 

3O REM HHHHHEHHEHERHEHEHE 

4@ REM 

50 MISS=500:FINISH=600: SETUP=1000: INFO=2000 ° 
10@ REM *# THE MAIN PROGRAM ## 

11@ GOSUB INFO:GOSUB SETUP 

128 REPEAT 

130 : PLOT X,Y,32:X=X+DX:Y=V+DY:PLOT X,Y,1264 
148 : IF X<2 OR X>37 THEN DX=-DX:PING 

15@ ; V=V¥+DY:W=SCRN(X,V) 

160 : IF W>32 THEN DY=-DY:PING 

17@ : IF W=4127 THEN PLOT X,V,32 

18@ : IF V>25 AND W<33 THEN GOSUB MISS 

19@ : IF V<i THEN GOSUB FINISH 

200 : IF Z>@ AND PEEK(769)=223 THEN Z=Z-1:PLOT 2,26,B¢ 
21@ : IF Z2<35 AND PEEK(769)=127 THEN Z=Z+1:PLOT Z,26,B$ 
220 UNTIL STATE<1 

230 PRINT E$s"B"SE$3"L Another go? Y or N" 
248 REPEAT:GET G$: UNTIL G$="Y" OR G$="N" 

258 TEXT: IF G$="Y" THEN RUN 

260 CLS:PRINT “Bye for now. ":POKE #26A,3:END 
5@@ REM *#* MISS ## 

51@ EXPLODE: STATE=STATE-1:DY=-DY:WAIT 100 

92@ PLOT X,Y,32:PLOT Z,246," " 

53@ PLOT 19,8,MID#(STR$¢(STATE) ,2)+" chances. " 
548 IF STATE=1 THEN PLOT 27,8,". “ 

55@ X=10+FNR(20):Z=X: DX=2#FNR(2) -1 

568 PLOT X,Y,126:PLOT Z,26,B$ 

578 RETURN 

60@ REM ** FINISH ¥# 

610 PING: WAIT S@:PING: WAIT 5S@:PING 

620 PLOT 13,1,CHR$(6)+CHR$(12)+"WELL DONE" 

638 WAIT 10@:STATE=-1 

648 RETURN 

1000 REM ## SET UP #+# 

1018 CLS: INK 7:PRINT SPC(9);"You have "; 

1828 PRINT MID$(STR#(STATE) ,2);" chances." 
1038 FOR I=1 TO SKILL:PLOT 0,2#1,1:NEXT 

1048 A$="";FOR I=1 TO 38: A$=A$+CHR$(255) : NEXT 
1050 PRINT: FOR I=1 TO SKILL:PRINT A$:NEXT 
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1060 PLOT @,26,9:Y=25: X=1O+FNR (28): Z2X 

1078 BS=CHRS$ (9) +" #88 " 

1088 DX=2#FNR(2)-1:DY=-1:PLOT X,Y,126:PLOT Z,26,B$ 
1090 FOR I=8 TO 15 

1100 : PLOT 2+FNR(34) ,2#SKILL+3+FNR(4) ,96 

1118 NEXT 

112@ RETURN 

2000 REM #* INFOrmation #+# 

2010 INK S:PAPER @:CLS:DEF FNR(X)=INT(RND(1) #X) 

2020 ES=" “+CHR$ (27): DS=E$t+"J"+CHRS$ (4) s PRINT 

2038 PRINT D$;SPC(9)3;"BOUNCE AWAY":PRINT D$:PRINTsPRINT 
2048 PRINT D$;SPC(6);"by Czes Kosniowski":PRINT D$:PRINT 
2050 PRINT "Use the left and right cursor keys to" 
2060 PRINT “bounce the ball around. The obstruc-" 
2078 PRINT "tions slowly disappear until the ball" 
2088 PRINT “can reach the top.":PRINT 

2098 PRINT “What skill level would you like to" 

2108 PRINT “play at? i(easier) to 4(harder) "3 

2118 REPEAT: G$=KEY$:GG=RND(1):UNTIL G$>"@" AND G$<"5" 
2120. SKILL=2+VAL(6$):STATE=13-SKILL:POKE #246A,18 

2138 RETURN 


The main routine 


The main routine moves the ball around and checks which obstacle, if any, 
is present. 

PEEK(769) reads the keyboard. If the value is 223 then the left cursor has 
been pressed and the bat is moved to the left. If it is 127 then the right cursor 
key has been pressed and the bat is moved right. 


The subroutines 


500 MISS 
If the ball doesn’t hit the bat then this subroutine makes the necessary 
noises and updates the data. 


600 FINISH 
If the ball has reached the top of the screen then this subroutine makes the 
necessary noises and displays the WELL DONE message. 


1000 SETUP 
This prints the display and plots a few random obstacles. 


2000 INFO 
This subroutine contains a brief outline of the game. 
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?5 Spirals 


This is a short program demonstrating the drawing of spirals on the HIRES 
screen. 

After the initial setting up of variables, several spirals are drawn at 
random. To draw a spiral you need to plot points of the form: 


(XMID + Z*COS (Z),YMID + Z*SIN (Z)) 


for values of Z between 0 and some value such as 5*PI. The point 
(XMID,YMID) is the centre of the spiral. 
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10 REM HH#HHHHHHHHE 


20 REM * SPIRALS # 
3Q REM HHHRHHHHEES 


40 REM 


108 
110 
120 
130 
148 
158 
200 
218 
220 
238 
248 
258 
268 
270 
280 
298 
300 
318 
320 
330 
348 
358 
368 
378 
388 
398 


REM *#* SET UP ## 

INK 6:PAPER @:CLS:DEF FNR(X)=INT(RND(1) #X) 

E$=" "+CHR$(27) : D$=E$+"I"+CHR$ (4): PRINT 

PRINT D$;SPC(11)3"SPIRALS":PRINT D$s:PRINT: PRINT 
PRINT D$;SPC(4)3"“by Czes Kosniowski":PRINT D$: PRINT 
PRINT “Just some random colourful spirals." 

REM **# Plotting ## 

WAIT 2@@0:HIRES:POKE #26A,2 

PRINT SPC(14)3 "SPIRALS" 

FOR Y=@ TO 199:CURSET @,Y,3:FILL 1,1,FNR(7) +13 NEXT 
FOR I=@ TO 9 

: XMID=FNR(175) +40: YMID=FNR (148) +26 

FOR Z=@ TO 15+FNR(1@) STEP .t 

CURSET XMID+Z#COS(Z) ,YMID+Z*SIN(Z) ,1 

: NEXT 

NEXT 

PING 

FOR [=@ TO 5 

: FOR Y=@ TO 199:CURSET @,Y,isFILL 1,1,FNR(7)+1:NEXT 
NEXT 

WAIT S@:PING:FOR I=1 TO Ss INK IT:WAIT 75:NEXT 

E$="  "+CHR$(27) 

PRINT E$+"B"+E$+"L Another go? Y or N" 

REPEAT: G$=KEY$:GG=RND(1):UNTIL 6$="Y" OR G$="N" 
TEXT: IF G$="Y¥" THEN RUN 

CLS:PRINT “Bye for now. ":END 
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26 Knees up Mother Brown! 


An old favourite song, known to many. If you don’t know the words you 
soon will. As each note is played the corresponding word, or part word, 
appears on the screen. If you know the words then you can watch the man 
doing his exercises, jumping up and down in time to the tune. The tune is 
played in several keys. 





KNEES UP MOTHER BROWN! 











@ just been _to a ding-dong 
n dear old Hrixton_way 

Mother Brown the Pearly Queen’s 
undred years today 

what a celebration! 

er lah-di-dah! 


Ma 
Ooh! knees up Mother Brown 
knees up Mother Brown 
Under the table eae must go 
Ee-i-ee-i-ee-i-oh! | 
If I catch you panei Og 
I’1l saw your leq right off 
So knees up knees up * 
Don’t let the breeze up 
Knees up Mother Brown! 







--ToOs< 
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10 REM EEHHREREREREEEEREEE EEE REE E 
20 REM * KNEES UR MOTHER BROWN! +# 
3O REM HHEHRHRHHHRH HEE H EERE RERERER 
48 REM 

5@ SWITCH=300: INFO=508: CHR=808 


108 
118 
120 
138 
148 
158 
168 
178 
180 
198 
200 
218 
220 
230 
248 
258 
268 
308 
318 
320 
338 
588 
518 
528 
538 
548 
55@ 
568 
578 
588 
598 
608 
618 
628 
638 
640 


REM *## THE MAIN PROGRAM ## 
60SUB INFO 
REPEAT 
PLOT 35,Y," ":PLOT 35,Y+!," . 


: IT=I+i:1F I>MAX THEN GOSUB SWITCH 

: B=INT( (ACI) -1)/12)2Y=25-A(1) :K=NOT K 

: PRINT C$(1); 

: PLOT 35,Y,CHR$(J-1) +A$(-K) 

: PLOT 35,Y+1,CHR$(J-1) +B$(-K) 

: IF AC(I)>@ THEN MUSIC 1,J3+B,A(I)-12#B,@:PLAY 1,@,1,L 
: WAIT 7#T(T) 

UNTIL KEY$="Q" 

PLAY @,8,8,@8:PRINT 

PRINT ES; "B"SE$5 "L Another go? Y or N"sSPC(1@) 
REPEAT: GET G$: UNTIL G$="Y" OR G$="N" 

IF 6$="Y" THEN RUN 

CLS:PRINT “Bye for now.":POKE #26A,3:INK 7:END 
REM *## SWITCH ## 

T=@:CLS:PRINT: PRINT D$3SPC(4)3K$:PRINT D$sPRINT: PRINT 
J=J+i:IF J>5 THEN J=3 

RETURN 

REM ## INFOrmation ## 

INK SsPAPER @:CLSsDEF FNR(X)=INT(RND (1) #X) 

E$=" "“4+CHR$(27) : D$=E$+"I"+CHR$ (4) PRINT 

K$="KNEES UP MOTHER BROWN!" 

PRINT D$;SPC(4)3K$:PRINT D$: PRINT: PRINT 

PRINT D$;SPC(6)3;"by Czes Kosniowski":PRINT D$:PRINT 
PRINT “Just a simple tune......"sPRINT 

PRINT “and some words..ceeseeee "SPRINT 

PRINT “Press Y to start.ccseeee"§ 

REPEAT:GET GS: UNTIL G$="Y" 

PRINT:PRINT: PRINT “Press @ vy quit. “sPRINTs PRINT 
FOR J=@ TO 1 

: A$(J) =CHRS$ (38-3) +CHR$(96-J) 

: BS(J)=CHR$(124-J) +CHR$(126-J) 

NEXT 


95 


658 
668 
678 
680 
690 
700 
710 
728 
738 
748 
750 
760 
770 
780 
798 
888 
818 
828 
1800 
1818 
1820 
1830 
1048 
1050 
1048 
1078 
1080 
1090 
110@ 
1118 
1120 
1130 
1148 
115@ 
1148 
1178 
1180 
1190 
1280 
1218 
1228 
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PRINT D$+A$(@)+" “+A$(1):PRINT D$ 
PRINT D$+B$(0)+" "+B$(1):PRINT D$ 
START=#B400+37%8: AA=#A008 

POKE AA,2:IF PEEK(AA)<>2 THEN START=START-#8008 
GOSUB CHR 
START=START+8:GOSUB CHR: START=START+57%#8:GOSUB CHR 
START=START+8: GOSUB CHR: START=START+27#8:GOSUB CHR 
FOR J=@ TO 2:START=START+8:GOSUB CHR: NEXT 

DIM A(120),T(128) ,C$(120)sMAX=-1:WMAX2-1 

REPEAT: MAX=MAX+1:READ A(MAX), T(MAX) UNTIL A(MAX) =-1 
REPEAT: WMAX=WMAX+1:READ C$(WMAX) UNTIL C$(WMAX) ="-1" 
IF MAX<>WMAX THEN PRINT “Error in Data.":END 
MAX=MAX-1:CLS:POKE #246A,1@:INK 6 

J=2: K=O: [=MAX: Y=13:L=2508 

RETURN 
REM ** CHR ## 

FOR I=START TO START+7:READ R:POKE I,R:NEXT 
RETURN 

REM ** DATA ## 

REM DATA - Characters 

DATA 3,3,3,1,1,7,11,19 

DATA 3,3,35,17,9,7,3,3 

DATA 32,32,32,0,0,48,40,36 

DATA 32,32,34,4,8,48,32,32 

DATA 35,3,2,2,2,2,2,2 

DATA 3,3,2,4,8,16,32,8 

DATA 34,32,32,32,32,32,32,32 

DATA 32,32,32,16,8,4,2,8 

REM DATA - Notes 

DATA 8,2,10,2,8,2,7,2,8,2,13,2,13,4,5,2 

DATA 6,2,5,2,4,2,5,2,8,6,5,2,8,2,10,2,8,2,6,2 
DATA 5,2,6,2,8,2,13,2,15,2,13,2,12,2,10,2 

DATA 8,46,8,2,18,2,8,2,7,2,8,2,13,2,13,4,13,2 
DATA 12,2,7,2,8,2,10,2,12,6,8,2,3,2,5924752,8,2 
DATA 10,2,12,2,13,2,10,2,15,2,13,2,12,2,10,2 
DATA 8,2,8,4,8,2 

DATA 5,2,8,2,8,2,8,2,8,8,6,2,10,2,18,2,10,2,18,8 
DATA 12,1,12,1,12,2,12,2,12,2,10,2,9,2,8,4 

DATA 12,2,12,2,12,2,12,2,180,2,9,2,8,4 

DATA 5,2,8,2,8,2,8,2,8,2,8,4,14,2,15,2,10,2,18,2 
DATA 10,2,18,6,11,2,12,2,12,2,10,2,8,2,12,2,12,1 


1230 DATA 12,1,10,2,8,2,8,2,8,2,10,2,12,2,13,6,8,2,8,8 
124@ DATA -1,-1 

125@ REM DATA - WORDS 

1268 DATA I've ,just ,been ,to ,a ,ding-,"“dong . 
1278 DATA down ,dear ,old ,Brix,ton ,“way , 
1288 DATA Old ,Mot,her ,Brown ,the ,Pearl,y ,"Queen‘s * 
1298 DATA a ,hun,dred ,years ,to,"“day : 
1308 DATA Oh! ,what ,a ,cel,e,bra,"tion! 7 
131@ DATA was ,prop,er ,lah-,di-,“dah! . 
1328 DATA Un,til ,they ,roll‘d ,the ,car,pet ,"up * 
1338 DATA and ,shou,ted ,Nah ,then ,"Ma "4 
1348 DATA Ooh! ,knees ,up ,Moth,er ,"Brown . 
1350 DATA knees ,up ,Moth,er ,"Brown " 
136@ DATA Un,der ,the ,tab,le ,you ,must ,"go " 
1378 DATA Ee-,i-,ee-,i-,ee-,i-,"oh! . 
138@ DATA If ,I ,catch ,you ,bend,"ing - 
1398 DATA I‘ll ,saw ,your ,leg ,right ,"off . 
1408 DATA So ,knees ,up ,knees ,"“up . 
1418 DATA Don’t ,let ,the ,breeze ,"“up : 
1428 DATA Knees ,up ,Moth,er ,Brown! , , 

1430 DATA -t 


The main routine 


The main routine plays each note, displays the words and the jumping man. 
Press Q to quit the program. 

The man is made up out of four characters, two held in A$(1) and two in 
B$(1I). He has two physical appearances depending on whether I is 0 or 1. 

The notes are stored in the array A(1) with time intervals in T(1). The 
words are stored in C$(I). 

See Appendix 4 for further details about MUSIC. 


The subroutines 


300 SWITCH 
When the song has finished the screen is refreshed. A new key for the tune 
is also selected. 


500 INFO 
This contains brief details about the program. 

Eight custom characters are created. When used in groups of four at a 
time a large man appears. The man can appear in one of two states. 
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After the creation of the special characters the DATA for the tune and 
words is read in. Be very careful when typing the DATA for the words, as 
each space is important. An extra space (or a missing space) could ruin the 
display. In general, string DATA may or may not be enclosed in quotation 
marks. The last bit of DATA in each DATA statement has been enclosed in 
quotation marks to ensure that the right number of spaces appear. In two of 
the DATA statements there is a comma at the end of the line, this simply 
means that the next bit of data is the empty string. 


800 CHR 


This subroutine reads the DATA for the custom characters and POKEs it 
where needed. 
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27 Memory Cards 


Here is a program which may sharpen your memory. It is a game for two 
players and essentially consists of 22 pairs of cards with the letters A to V on 
them. The letters are not visible. When it is your turn you may turn over any 
two cards to reveal the letters. If the letters are the same you receive both 
cards and turn over two more cards. Otherwise, the cards are turned back 
and the next person has a turn. Play continues until all the cards have gone. 
The player with the largest collection wins. 

‘In fact there are 45 cards, 22 pairs and an odd card with the symbol a on it. 
This odd card cannot be matched. 

A card that is flashing may be turned over by pressing Y. Use the cursor 
keys to change the card that is flashing. 






MEMORY CARDS 


Hees: HB ss HBB sc 
Hee REE 2: HEB ss: ii EE ti itt 
tat RG ate Hae ge Eat ny ate at 
Hee HEE HEE ::: GHB ss: GHB sc: He 
GH RRE sc EERE cc EEE a 


RED PLAYER BLUE PLAYER 
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18 
28 
38 
40 
58 
40 
108 
118 
128 
130 
148 
158 
168 
178 
180 
198 
208 


210 : 


228 


230 : 


248 
258 


268 : 


270 
288 
290 
308 
318 
320 
330 
348 
358 
368 
3708 
388 
508 
518 
528 
538 
548 
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REM HHKRHHEEHHEREHES 
REM # MEMORY CARDS * 
REM HHEKERHH HERE EERE 
REM 
CHANGE=500: MOVE=400: YES=708: VIEW=800: BACK=900 
SETUP=100@:INFO=2000 * 

REM ** THE MAIN PROGRAM *# 

GOSUB INFO:GOSUB SETUP 

REPEAT 


: PLOT X(M),24,8:PING: WAIT 3@:PING 
: M=-NOT-M:PLOT X(M),24,12 

: REPEAT 

: 722=12:G0SUB CHANGE: WW=2 

: REPEAT 

: REPEAT: UNTIL KEY$="" 

: REPEAT 

: GET G$:G=ASC(G$) 


UNTIL G>7 AND G<12 OR G=89 

: IF 6>7 AND G<1i2 THEN GOSUB MOVE 

IF G=89 THEN GOSUB VIEW 

> UNTIL WW 

: STATE=TRUE: BS=" tH" 

IF P$(@)=P$(1) THEN GOSUB YES 

: GOSUB BACK 

: UNTIL STATE 

UNTIL SC(O)+SC(1)>21 

CLS:PRINT:PRINT SPC(10);NSePRINT D$ 
PING:PRINT: PRINT "SCORES: ": PRINT: PRINT 
WAIT SQ@:PING: WAIT S@:PING 

PRINT E$;"ARED PLAYER “3SC(O):PRINT:PRINT 
PRINT E$;"DBLUE PLAYER "3SC(1):PRINT:PRINT: WAIT 99 
PRINT ES; "B" 3E$3"L Another go? Y or N" 
REPEAT: GET G$:UNTIL G$="Y" OR G$="N" 

IF G$="Y" THEN RUN 

CLS:PRINT "Bye for now.":INK 7:POQKE #26A,3:END 
REM ** CHANGE #+# 

FOR I=@ TO 2 

: PLOT 44#X+1,4#Y+4+1,22 

NEXT 

RETURN 


608 
618 
620 
630 
648 
658 
668 
670 
708 
718 
720 
738 
748 
758 
808 
818 
820 


830 : 


848 
858 
840 
878 
900 
918 
920 
938 
940 
950 
960 
978 
1000 
1018 
1020 
1838 
1040 
1058 


1848 : 


1070 


1080 : 
1090 : 


1108 


REM #* MOVE ## 
72=8:GOSUB CHANGE 

IF X>@ AND G=8 THEN X=X-1 

IF X<8 AND G=9 THEN X=X+1 

IF Y>@ AND G=11 THEN Y=Y-1 

IF Y<4 AND G=1®@ THEN Y=Y+1 
727=12:G0SUB CHANGE 
RETURN 
REM ¥* YES ## 
PING:SC(M) =SC(M) +1 
PLOT 20#M+8,26,STR$(SC(M)) 
STATE=FALSE:B$="..." 

IF SC(@)+SC(1)>21 THEN STATE=TRUE 
RETURN 
REM *#* VIEW ## 

IF SCRN(4#X+3,4#Y+5)<>35 THEN RETURN 
FOR I=@ TO 2 
PLOT 4#X+2,4#Y+441,A$(X4+9#Y) 
NEXT 
A(WH)=X:B(WW)=V:P$ (WW) =A$(X4+9#Y) 
WW=WW+1 
RETURN 
REM ** BACK ## 

77=8:G0SUB CHANGE: WAIT 100 

IF STATE THEN SHOOT:WAIT 300 
FOR J=@ TO i:FOR I=@ TO2 

: PLOT 4#A(J)+2,4*B(J)+4+1,B$ 
NEXT: NEXT 
PING 
RETURN 

REM *# SET UP ## 

CLS: INK 5:PING 

PRINT:PRINT SPC(10);N$:PRINT D$:PRINT 
FOR I=® TO 4 

: FOR J=@ TO 2 

: PRINT " “sCHR$(8); 
: FOR K=@ TO 8 
: PRINT CHR$(27)+"H###"; 
: NEXT 
PRINT 
: NEXT 
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1118 
1120 
1130 
1148 
1158 
1160 
1178 
1188 


1198 : 


12088 
1210 
1220 
1230 
1248 
1258 
1268 
1270 
1288 


1298 : 


1300 
1318 
2008 
2018 
2020 
2038 
2048 
2058 
2048 
2078 
2088 
2098 
2100 
2110 
2120 
2138 
2140 
2158 
2148 
2178 
2188 
2198 
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: PRINT 

NEXT 

PRINT E$;"H";E$;"ARED PLAYER ms 
PRINT E$;"H";E$;"DBLUE PLAYER" 

PLOT 8,26,STR$(Q8):PLOT 28,26,STR$#(Q) 
DIM A$(44) 

FOR I=@ TO 22 

: FOR J=8 TO 2 

IF 1>@ THEN A$(2#I-1)=A$(2*I-1)+CHR$ (6441) 
2 AS(2#1)=A$(2#1) +CHRE(64+1) 

s NEXT 

NEXT 

M=@: IF RND(1)<.5 THEN M=i1 
X(O)=2:X(1)=20 

X=FNR(9): Y=FNR(5) 

REM MIXING 

FOR I=@ TO 43 

: PP=FNR(45-I)+1 


TT$=A$ (1) sAS(T)=AS(PP) SAS( PP) =TT$ 
NEXT 
RETURN 
REM *# INFOrmation #+# 


INK 2:PAPER @:CLS:DEF FNR(X)=INT(RND(1) #X) 

E$=" "+CHR$(27) :DS=E$t"JI"+CHR$(4) PRINT 
N$=D$+"MEMORY CARDS" 

PRINT SPC(9)s; NS: PRINT D$:PRINT: PRINT 

PRINT D$3;SPC (6); "by Czes Kosniowski":PRINT D#sPRINT 
PRINT "This is a game for two players. When" 
PRINT “it your turn, you may turn two cards" 
PRINT “over. If they are the same then you" 
PRINT “keep the cards and go again. Otherwise"; 
PRINT “the cards are turned back over and the"; 
PRINT “other player has a go.":PRINT: WAIT 99 
PRINT “The card that is flashing may be" 

PRINT "turned over. Use the cursor keys to" 
PRINT “move about. Then press Y to turn a" 
PRINT "card over. ":PRINT:WAIT 99 

PRINT “Decide now who will be the RED player" 
PRINT “and who will be the BLUE player. ":PRINT 
PRINT:PRINT: PRINT “Press Y to start. “3; 

REPEAT: G$=KEY$:GG=RND(1):UNTIL G$="Y" 


2208 POKE #246A,2 ‘Disables cursor 
2218 RETURN 


The main routine 


The main routine consists of several REPEAT/UNTIL loops. The first one 
provides a means of alternating between the two players and continues until 
all the cards are used up. The next loop continues until a pair of different 
cards appear. The third loop provides a process whereby two cards are 
selected by each player. 


The subroutines 


500 CHANGE 
This is the subroutine which turns the flashing of a card on or off depending 
upon whether ZZ is 8 or 12. 


600 MOVE 
This moves the position of the flashing cards. 


700 YES 
If the two revealed cards are the same then this subroutine is used to remove 
the cards from play. 


800 VIEW 
This subroutine reveals the cards. 


900 BACK 
This subroutine turns any revealed cards back. 


1000 SETUP 
The screen display is created by this subroutine. 

The array A$(1) stores the letter on each card. A short routine randomly 
mixes up the contents of the array. 


2000 INFO 
This contains brief details of the game. 
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28 Hangman 


This is the old familiar hangman game but without the hanging part. Instead 
a man is forced to walk up a flight of stairs. As usual you have to work out 
the word that the computer has selected. You are told how many letters 
there are in the word. Each time you enter a letter the computer tells you if 
that letter is in the word or not. If it belongs to the word then it is placed in 
the appropriate position. (All occurrences of that letter are automatically 
displayed.) Whenever you enter an incorrect letter the man walks one step 
up the flight of stairs. At the top of the stairs is a plank — one step beyond 
this and SPLAT! 

Don’t enter the same letter twice — that will cause the man to take one step 
nearer to his doom. 


AE IOYWSN 
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10 
20 
38 
40 
58 
68 
100 
110 
120 
138 


140 : 


158 
148 
178 
188 
198 
208 
218 
220 
238 
240 
258 
268 
278 
288 
500 
518 
520 
538 
548 
558 
548 
57@ 
580 
598 
600 
610 
628 
638 
648 


REM HHHHHHHHHEH 
REM # HANGMAN + 
REM HHHHEHHHHHH 
REM 
CHOICE=500: YES=4608: NO=700: WRNG=880 
SETUP=1000: INFO=2008 
REM *#* THE MAIN PROGRAM ## 
GOSUB INFO:GOSUB SETUP 
REPEAT 
: GOSUB CHOICE 
REPEAT 
: REPEAT:GET G$: UNTIL G$>"@" AND GS<"C" 
: PRINT G$;" "3: BLANK=TRUE 
: FOR I=1 TOL 
: IF MID$(B$,1,1)=6$ THEN GOSUB YES 
: NEXT 
: IF BLANK THEN GOSUB NO 
: UNTIL STATE=L OR NUMBERS? 
: PRINT: PRINT 
: IF STATE=L THEN PING: WAIT 1@:PING:PLOT 1,5,12 
: IF NUMBER>9 THEN GOSUB WRNG 
: PRINT E$;"“B"5E$ 3 "L Another go? Y or N" 
: REPEAT: GET G$:UNTIL 6$="Y" OR G$="N" 
UNTIL 6$="N" 
CLS:PRINT "Bye for now."s:INK 7:END 
REM ## CHOICE #+# 
STATE=@:NUMBER=@:CLS:FOR I=8 TO 21sPRINT: NEXT 
BS=R$(FNR(MAX)) :L=LEN(BS) 
PLOT @,1,10:PLOT 1,1,4:PLOT @,2,1@:PLOT 1,2,6 
PLOT @,3,9sPLOT 1,3,3:B=INT(i7-L) 
FOR I=B+2 TO B+2#L STEP 2:PLOT 1,3,44:NEXT 
PLOT @,5,2:PLOT 1,5,@:PLOT 14,5,“WELL DONE" 
FOR I=1 TO 6:PLOT 20-1,10+1 ,LEFT$(C$,1) : NEXT 
PLOT 20,11,LEFT$(C$,2):PLOT 10,17,C$ 
PLOT X(@),Y(@),37: RETURN 
REM #* YES ## 
IF SCRN(B+2*#1,1)>32 THEN SHOOT: WAIT 2@:RETURN 
PING:PLOT B+2#1,1,6$:PLOT B+2#1,2,6$% 
STATE=STATE+1: BLANK=FALSE 
RETURN 
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708 

718 

720 

730 

740 

800 

810 

828 

830 

848 

858 

868 

1080 
1810 
1028 
1830 
1048 
1858 
1048 
1878 
1180 
11108 
1120 
1138 
1148 
1158 
1168 
1178 
1188 
1198 
1280 
1218 
1220 
1238 
1248 
1258 
1288 
1298 
1380 
1318 
1328 
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REM #* NO ## 
PLOT X(NUMBER) , Y(NUMBER) ,32 
ZAP: NUMBER=NUMBER+1 
PLOT X (NUMBER) ,Y (NUMBER) ,37 
RETURN 
REM ## WRNG ## 
FOR I=i TOL 
: GS=MID$(B$,1,1):B0SUB YES 
: PLOT 22,9+1,32sPLOT 22,10+1,37 
NEXT 
PLOT 21,10+L,"SPLAT"sEXPLODE: WAIT 50 
RETURN 
REM *## SET UP ## 
MAX=-1:DIM R$(100) 
REPEAT: MAX=MAX+1:READ R#(MAX) UNTIL R#(MAX)="%" 
FOR I=@ TO 18:READ X(1I),Y¥(I):NEXT 
START=#B400+37#8: AA=#A008 
POKE AA,2: IF PEEK(AA)<>2 THEN START=START-#8008 
FOR I=START TO START+7:READ R:POKE I,R:NEXT 
RETURN 
REM ** THE DATA ## 
DATA TABLE ,CHAIR,BOOK,PILLOW,CUBE,RULER, ISLAND 
DATA GLASS, BUCKET, TORCH, KITCHEN, TELEVISION, BOTTLE 
DATA BEAN,HELLO,NAME,WHOSE,RUNNER, TWELVE, ZEBRA 
DATA RUBBER,SUNNY ,ENDING,GUESS,CORNER, BUTTERFLY 
DATA ENEMY,FLOWER,ROCKET, ORANGE, YELLOW, BLACK 
DATA NOTHING, WATER, SUNSHINE, CHEAT, BLACKBOARD 
DATA MEAT, TREAT, THEATRE, PURPLE,GREEN,VIOLET 
DATA GRAMMAR ,SCHOOL,SIGN,POST,COAST,CHURCH,PADDLE 
DATA BEDROOM, TISSUE,MISS, TEST, AUGUST ,MOTHER,FATHER 
DATA ANIMAL, DIRTY,BEGIN,HANDLE,UNCLE, SHIP 
DATA ZOOM, TWENTY, SQUASH, SHEET, BEAUTIFUL, JANUARY 
DATA DIAMOND, FEBRUARY ,MARCH,APRIL,JUNE, JULY 
DATA SEPTEMBER, OCTOBER,NOVEMBER, DECEMBER, AUNT 
DATA DRONE, DROP ,NOTICE,OFFER,PATCH,PASTIME 
DATA POWDER, QUIZ,QUIET,SORROW, VOLUME, DAFT 
REM Room for more words 
DATA * 
DATA 12,16,13,16,14,15,15,14 
DATA 16,13,17,12,18,11,19,18 
DATA 20,18,21,18,22,18 


1330 DATA 14,14,4,31,14,14,18,18 

2080 REM ** INFOrmation #*# 

201@ INK 5:PAPER @:CLS:DEF FNR(X)=INT(RND(1)#X) 

2028 E$=" "+CHR$(27) :D$=E$4+"J"+CHR$ (4) s PRINT 

2038 PRINT D$;SPC(12);"HANGMAN":PRINT D$:PRINT: PRINT 
2048 PRINT D$;SPC(6)3“by Czes Kosniowski":PRINT D$:PRINT 
2058 PRINT "Guess the word before the man reaches" 
2068 PRINT “the top and falls off........ "SPRINT 
2070 PRINT "For each incorrect letter the man " 

208@ PRINT "moves one step closer........"8PRINT 
2098 PRINT "Press Y to start. "3 

2108 REPEAT: 6$=KEY$:GG=RND(1):UNTIL G$="Y" 

2118 PRINT:PRINT:PRINT “Here we gow..." 

2128 FOR I[=@ TO 9:C$=C$+CHR$(255) s NEXT 

2138 RETURN 


The main routine 


The main routine waits for a letter key to be pressed (one of the keys A to 2Z). 
This letter is printed at the bottom of the screen. A check is made to see if 
this letter is contained in the selected word. If it is then the subroutine YES is 
called, otherwise NO is used. 

The whole process continues until 10 errors have been made or the word 
has been guessed correctly. 


The subroutines 


500 CHOICE 

This selects a word at random and creates the appropriate screen display. 
The string C$ consists of ten solid blocks (CHR$(255)) and is used to create 
the stairs. 


600 YES 

If the letter selected appears in the word then this subroutine is called to 
display that letter. Notice that if the letter has been selected previously it 
counts as an error. 


700 NO 
A wrongly guessed letter (or duplicated letter) calls this subroutine. The 
effect is to make the man walk up that flight of stairs. 


800 WRNG 
If the word is not guessed the man falls over the precipice and goes SPLAT. 
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1000 SETUP 
This reads the words into memory. You can add more words or change any 


quite easily in the DATA statements. 
The path that the man walks up the stairs is stored in the arrays X(1), 


Y(I). 
One custom character, the man, is needed. 


2000 INFO 
This contains brief details of the game. 
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29 figure it Out 


In this game the computer will select some numbers. You have to figure out 
what these numbers are using the information supplied by the computer. 
For each guess you will be told how many correct numbers you guessed. A 
cyan coloured marker is used to denote a correct number in the correct 
position. A magenta marker denotes a correct number in the incorrect 
position. 

You are allowed to say how many numbers the computer should select. 
Also you may say in what range each of these numbers should be. For 
example, you may ask the computer to select three numbers between 1 and 
2. That makes a rather easy game. At the other extreme you may ask the 
computer to select nine numbers between 1 and 9. That would be rather 
more difficult. 


FIGURE IT 
1 a 


2 


a 
1 a 
Z a 
a 
a 


121 
ziti 


WELL DONE - you 
Another 
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10 REM HHHHHHHEHHHRHR HEHE 

28 REM * FIGURE IT OUT *# 

3D REM HEHHHHHHEHH HERES 

4@ REM 

5@ CHECK=500: ANSWER=70@: SETUP=1000: INFO=2008 

100 REM *#* THE MAIN PROGRAM #+# 

11@ GOSUB INFO:GOSUB SETUP 

12@ REPEAT 

138 : FOR I=i1 TO NUMBER: C$(1I)=A$(1): NEXT 

140 : PLOT 1,0,T#:PING: REPEAT: UNTIL KEY$="" 

i5@ : FOR I=i1 TO NUMBER 

168 : REPEAT: GET G$:UNTIL 6$>="@" AND G$<CHR$(49+RANGE) 
170 : IF G$="8" THEN STATE=TRUE: I=NUMBER 

188 : PRINT G$+" “3; :BS(1I)=6$ 

198 : NEXT 

208 : PING:PLOT 1,0,5$ 

219 : IF NOT STATE THEN GOSUB CHECK 

228 : PRINT: PRINT: TRIES=TRIES+1 

23@ UNTIL STATE 

248 IF STATE<@ THEN GOSUB ANSWER 

25@ IF STATE=1 THEN PRINT W$; TRIES 

268 WAIT S@s:PRINTsPRINT E$#"L Another go? Y or N “ 
270 REPEAT: GET G$: UNTIL G$="Y" OR G$="N" 

288 IF 6$="Y" THEN RUN 

298 CLS: INK 7:PRINT "Bye for now. ":END 

5@@ REM ## CHECK #+# 

51@ X$=""*:Y$="" 

52@ FOR I=i1 TO NUMBER 

530 : IF C#$(I1)=BS(1) THEN X$=X$4+"C ":BS(I)="B":C$(1)="C" 
548 NEXT 

55@ FOR I=1 TO NUMBER: FOR J=1 TO NUMBER 

560 : IF C$(I)=BS(J) THEN Y$=Y¥$+"9 “sBS(J)="B":C$(1)="C" 
57@ NEXT: NEXT 

58@ PRINT DS+FSt"FU+F Se" "+" "+X$S+D$StFSt"E"+VS4D$ 

590 IF LEN(X$)=2*NUMBER THEN STATE=1:PING:WAIT 38:PING 
688 RETURN 

780 REM *#* ANSWER #+# 

71@ PRINT “Was it that hard?":SHOOT 

720 PRINT: PRINT “The answer is :"“:PRINT 

738 FOR I=1 TO NUMBERsPRINT AS$(I)+" “3 eNEXT 
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748 PRINT 


75@ RETURN 

1000 REM #* SET UP ## 

101@ PAPER @:INK 2:CLS 

1828 FOR I=i TO NUMBER 

1030 : A$(I)=CHRS$(49+INT(RND(1) #RANGE) ) 

1048 NEXT 

105@ T$=CHR$(12)+"Type "+MID$(STR$ (NUMBER) , 2) 
1068 T$=T$+" numbers, between 1 and “+MID$(STR$ (RANGE) ,2) 
1070 FOR I=@ TO 33:S$=S$+" "sNEXT 

1088 STATE=FALSE:PRINT:PRINT: PRINT N$: PRINT 
1090 W$="WELL DONE - you did it in " 

1108 RETURN 

2000 REM ** INFOrmation #+# 


2018 
2020 
2030 
2040 
2050 
2068 
2078 
2080 
2898 
2188 
2118 
2128 
2138 
2140 
2158 
2168 
2178 
2188 
2198 
2208 
2218 
2228 
2238 
2240 
2258 
2268 
2270 


PAPER @: INK 7:CLS 

FS$=CHR$(27):E$=" "+F$: D$=CHR$ (8) 

NS=E$+"A FIGURE IT OUT" 

PRINT CHR$(4)sPRINT E$+"J"+N$sPRINTs PRINT 
PRINT:PRINT E$+"J"+E$+"B by Czes Kosniowski" 
PRINT CHR$(4):PRINT: PRINT 

PRINT “The computer will select some numbers" 
PRINT “which you have to FIGURE out based on" 
PRINT “the information supplied. The special" 
PRINT “symbol "+F$+"I"+F$+"F("+F$+"H"+F$+"Gappears"; 
PRINT " for every number in"; 

PRINT “its correct position. The symbol"; 

PRINT FSt"I"+F $+" EQ"+F$+"H" +h $+"G" 

PRINT “appears for every correct number in" 

PRINT "the wrong position." 

PRINT:PRINT “If you want to give up - press @." 
PRINT: PRINT 

PRINT “How many numbers do you want the" 

PRINT “computer to choose? 3 to 91 “3 

REPEAT: G$=KEY$:GG=RND(1):UNTIL G$>"2" AND GS$<":" 
NUMBER=VAL (6$):PRINT 6$ 

PRINT:PRINT "How large can each of the numbers be?" 
PRINT “2 to 9: “3 

REPEAT: G$=KEY$:GG=RND(1):UNTIL G$>"1" AND GS<"e" 
RANGE=VAL(G$):PRINT 6¢ 

PRINTSPRINT "O.K. Here we go! “s:WAIT 188 

RETURN 
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The main routine 


The main loop waits repeatedly for the required number of numbers to be 
typed in. These numbers are displayed and a check is made, with the 
subroutine CHECK, to see how many are correct. 

The process continues until the correct sequence is guessed or the number 
0 is pressed. Pressing 0 gives you the option of giving up. 


The subroutines 


500 CHECK 

This first checks to see how many of the numbers are both correct and 
correctly positioned. It then checks to see how many of the remaining 
numbers are correct but incorrectly positioned. 


700 ANSWER 
If 0 is pressed the main routine is aborted and this subroutine prints out the 
answer. 


1000 SETUP 
This subroutine randomly selects the numbers you have to guess. 


2000 INFO 

This contains brief details of the game. It also requests how many numbers 
(NUMBER) the computer has to select and the range (RANGE) of these 
numbers. 
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30 Don't be Greedy 


If you like dice rolling games then here is one for you. A lot of luck is 
involved but some skill is also needed. 

The game uses two dice which look like ordinary dice except that there 
isn’t a number 1. Instead there is a miserable looking face. 

You play against the computer. The object of the game is to be the first to 
score over 100. The computer and you take turns at rolling the dice. A round 
consists of a series of rolls (at least one but posssibly many). You can stop 
rolling whenever you want by pressing 4. If you get a face then your round 
is over and your score for that round is 0. If you get faces on both dice then 
your round is also over and your total score becomes 0. If no face appears 
then you have the choice of rolling again or passing the dice to the 
computer. If you pass the dice your round is over and the score of that 
round is added to your total score. The computer then goes through a 


ROLLING 
Your go. 
Press @ to stop. 


DON’T BE GREEDY! 


Your score is 56 My score is 27 
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similar process, after which it is your turn again. The skill is to decide when 
to stop — just remember don’t be greedy. 
Note: The two dice are rolled randomly and the computer does not cheat. 


10 REM 4HHHHHHHHHHHERHHHE ES 

20 REM * DON’T BE GREEDY +* 

3O REM HEHEHE HEREREREREEES 

40 REM 

5@ YOU=300: ME=500: DICE=700: ADDUP=800: CARRY=900: INFO=1000 


180 
110 
120 
138 
148 
158 
148 
178 
188 
198 
208 
308 
318 
320 
338 
340 
358 
368 
378 
388 
398 
400 
418 
420 
430 
440 
4508 
468 
588 
518 
520 
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REM *# THE MAIN PROGRAM ## 
GOSUB INFO: ANSWER=TRUE 
REPEAT 
: IF ANSWER THEN GOSUB YOU 
: IF ANSWER THEN GOSUB ME 
UNTIL NOT ANSWER 
FOR I=@ TO 2:PING:WAIT 30:NEXT 
PRINTSPRINT ES; "B"SE$ 3 "L Another go? Y or N" 
REPEAT: GET G$: UNTIL G$="Y" OR G$="N" 
IF 6$="Y" THEN RUN 
CLS:PRINT “Bye for now.":POKE #26A,3: INK 7: END 
REM *# YOU ## 
STATE=FALSE: M=@:N=0sP=2:SC=YSC:T=8 
PLOT 14,4,“Your go." 
REPEAT 
PLOT 10,4,"Press @ to stop." 


: REPEAT: UNTIL KEY$="" 

: GOSUB DICE: GOSUB ADDUP 

: PLOT 10,4," . 

: PRINT H$+" Your score this round is “+STR$(T) 
: IF NOT STATE THEN GOSUB CARRY 

UNTIL STATE 


YSC=SC+T 

WAIT S@:PRINT H$:PRINT: PRINT J$ 

PLOT 1,28,"Your score is"+STR$(YSC)+" “:WAIT 188 
IF YSC>1@@ THEN ANSWER=FALSE:PRINT H$;3SPC(14) sW$ 
PLOT 14,4," ":;WAIT 5@ 

RETURN 

REM ## ME ## 

: STATE=FALSE: N=@:N=1:P=FNR(28)+15:SC=MSCs T=8 
PLOT 15,4,"My go." 


538 


540: 


958 
568 
578 
58@ 
598 
600 
618 
628 
638 
640 
658 
700 
718 
728 
738 
748 
758 


768 : 


778 
788 
798 
800 
818 
828 
838 
B48 
858 
900 
918 
920 
938 
948 
958 
1008 
1018 
1828 
1830 
1048 
1850 


REPEAT 
GOSUB DICE:GOSUB ADDUP 
: PRINT H$+" My score this round is “+STR¢#(T) 
: STATE=STATE OR (RND(1)<.5+.2*(SC+T<YSC) ) 
: IF SC+T>10@ THEN STATE=TRUE 
: IF NOT STATE THEN PRINT:PRINT SPC(108);Y$ 
: WAIT 25@0:PRINT CHR$(11)+d$ 
UNTIL STATE 
MSC=SC+T:WAIT S@:PRINT H$:PRINT:PRINT J$ 
PLOT 20,20,CHR$(5)+"My score is“+STR$(MSC)+" , 
IF MSC>10@ THEN ANSWER=FALSE:PRINT H$+J$;SPC(15)51$¢ 
PLOT 15,4," . 
RETURN 
REM ## DICE #+# 
PLOT 14,2,"ROLLING" 
REPEAT 
: K=FNR(6)sL=FNR(6) :M=M+tN 

: FOR I=@ TO 2 

: PLOT X,Y+2#1I1,BS(K,1):PLOT X+Z,Y+2#1,BS(L,I) 
NEXT 
UNTIL KEY$="Q" AND P<5S OR M>P 
PLOT 14,2," . 
RETURN 
REM #* ADD UP ## 

IF K=@ OR L=@ THEN ZAP: T=@:STATE=TRUE 

IF K=@ AND L=@ THEN EXPLODE:SC=@ 
S=@:I1F K>@ AND L>@ THEN S=K+L+2:PING 
T=T+§ 
RETURN 
REM ## CARRY on ## 
PRINT: PRINT E$+"LDo you want to roll again? Y or N" 
REPEAT: GET G$: UNTIL G$="Y" OR G$="N" 
PRINT CHR$(11)+J$ 

IF G$="N" THEN STATE=TRUE: RETURN 
RETURN 

REM *## INFOrmation #+# 

INK 3:PAPER @:CLS:DEF FNR(X)=INT(RND(1) #X) 

E$=" "“4CHR$(27) :DS=E$t"J"+CHR$(4) sPRINT 
K$="DON'T BE GREEDY!" 

PRINT D$;SPC(7);K$:PRINT D$:PRINTsPRINT 

PRINT D$;SPC(6)3"by Czes Kosniowski":PRINT D$:PRINT 
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1068 
1078 
1088 
1898 
1108 
1118 
1120 
1138 
1140 
1158 
1168 
1178 
1188 
1198 
1208 
1218 
1228 
1238 
1240 
1258 
1268 
1278 
1288 
1298 
1300 
1318 
1328 


PRINT "This game uses two dice. Try to be" 

PRINT “first to get a score of over 100.":PRINT 
PRINT "A round consists of a series of rolls."; 
PRINT "You can stop when you want, BUT you" 

PRINT “must stop if you get a ‘1i' (shown as aface.)" 
PRINT:PRINT “If you get a face then your score for" 
PRINT “that round is @. If you get two faces" 


PRINT “then your total score becomes @.":PRINT 
PRINT “Press Y to start.....0.."3 

REPEAT: G$=KEY$:GG=RND(1):UNTIL G$="Y" 

AS="<C yyy 95 4S BSE"S D7 ECSe = agg gh 
BS(O,8)="<4 <4"sBS(O,1)=" OO ":BS(8,2)="<,,,,4" 
B$(1,8)=" \ "sBS(1,1)=" ":B$(1,2)="\ ; 
B$(2,0)=" \ ":B$(2,1)=" \ “:BS(2,2)2"\ . 
BS(3,8)="\ \ "1B$(3,1)=" "sB$(3,2)="\ \? 
BS(4,0)="\ \ ":BS(4,1)2" \ “:BS(4,2)="\ ‘os 
BS$(5,@)="\ \ "sB$(5,1)="\ \"sB$(5,2)2"\ \ 


X29: Y¥=9:Z212:CLS:POKE #26A,2: INK 5 

FOR I=Y¥-2 TO Y+6:PLOT 0,1,9:NEXT 

PLOT @,4,1:PLOT 0,6,3 

PLOT X-1,Y-1,A$:PLOT X-1+Z,Y-1,A$ 

FOR I#V¥ TO Y+4:PLOT X-1,1,B$sPLOT X-1+2,1,B$:NEXT 
PLOT X-1,¥+5,C$:PLOT X-1+Z,Y+5,C$ 

J$=CHR$ (14) :HS=CHR$(3O)+I$:W$="YOU WIN" 

1$s"T WIN": Y$="I'11 roll again." 

PLOT 9,17,CHR$(4)+K$ 

RETURN 


The main routine 


The main routine is a short loop which terminates when the value of ANSWER 
is FALSE. This is the case when one of the players (you or the computer) 
reaches a score over 100. 


The subroutines 


300 YOU 

This subroutine is used when it is your turn. It consists of a loop which ends 
when you decide to stop the round or when you are forced to stop a round 
because of a face. 
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500 ME 
This subroutine is similar to the one above except that it includes a strategy 


for the computer. 


700 DICE 
The actual rolling of the dice is performed here. As you can easily check, it is 


quite random and fair. 


800 ADDUP 
The score during a round is calculated with this subroutine. 


900 CARRY 
This asks if you want to carry on rolling. That is, if you are allowed to. 


1000 INFO 

This contains details of the game followed by the board layout. The strings 
A$, B$ and C$ used correctly produce a square. The string array B$(I,J) 
contains the display that can appear on each dice. For example B$(0,0), 
B$(0,1) together with B$(0,2) produce a face while B$(3,0), B$(3,1) 
and B$(3,2) produce four dots. Note that all these strings are printed on 
the screen using the alternate character set. 
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Appendix |: Saving Screen to Tape 


There may come a time when you want to save, on tape, a picture that 
you've created on the screen; particularly if it is a high-resolution picture 
which took a while to draw. You can do this quite easily with the following 
method. 

Suppose that the ORIC is in HIRES mode and your picture is ready. Now 
type one of the following (depending on whether you have a 48K or 16K 
ORIC). 


CSAVE "NAME", A#AQ00,E#BF3F | (48K model) 
CSAVE "NAME",A#2000,E#3F3F © (16K model) 


Then press the RECORD and PLAY buttons on your tape recorder and press 
RETURN on the ORIC. 

To view the picture later, first rewind the tape and adjust the volume to 
the correct level. Make sure that the ORIC is in HIRES mode. Then type one 
of the following, 


CLOAD "NAME" ,A#A000,E#BF3F (48K model) 
CLOAD "NAME" ,A#2000,E#3F3F (16K model) 


press RETURN on the ORIC and PLAY on the tape recorder. Soon you should 
see your picture rapidly reappear on the screen. 

You could incorporate the saving part into any of your programs. At a 
suitable point of the program insert a line with the following command. 


GOSUB 50000 


Also, add the following lines to your program. 


50008 REM ## SAVE UTILITY #+# 

50018 PRINT: PRINT 

58828 PRINT “Do you want the save this picture?" 
5Q@83@ PRINT "Y or Ne “3 

50048 REPEAT:GET G$:UNTIL 6$="Y" OR G$="N" 
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50058 
50068 
58878 
50088 
50898 
50188 
50118 
58120 
58138 
50140 
50158 
50168 
58178 


IF G$="N" THEN RETURN 

PRINT: PRINT 

PRINT “Press RECORD and PLAY on your recorder"; 
PRINT CHR$(14@);SPC(10);"Press Y when ready"; 
REPEAT: GET G$:UNTIL G$="Y" 

CSAVE “PICTURE”, A#AQQ0,E#BF3F 

REM Change details above for 16K model 

PRINT: PRINT 

PRINT CHR$(14@);SPC(8)3; "Turn your recorder off" 
PRINT CHR$(140);SPC(11); “and press Y “; 

REPEAT: GET G$:UNTIL G$="Y" 

PRINT: PRINT 

RETURN 
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Appendix 27: Renumber Utility 


Whenever you write your own programs or modify others, there comes a 
time when you want to renumber the lines. Here is a short simple program 
that will renumber any block of lines. It will not, however, renumber those 
line numbers that you call within a program. In other words GOTO 999, 
GOSUB 237 etc., will not be changed. The way around this problem (used 
throughout this book) is to use named subroutines in the form GOSUB BLANK 
where the variable BLANK is assigned some value in the first lines of a 
program. Then, after renumbering, you need simply change the value of 
BLANK and the program will work. 

Back to the renumber utility, first of all type in the program and save it 
under a name like RENUMBER. Whenever you write a program CLOAD 
"RENUMBER" first and then type in your program. 

To use the utility type RUN 60000 and press RETURN. You will be asked for 
four numbers as follows. 


Block start, Block finish, Start of new line numbers, Increment. 


Here Block start, Block finish are the first and last line numbers of that part of 
your program you want renumbered. Start of new line numbers is the new 
starting line number and Increment is the amoiint by which you want each 
line to go up (this is usually 10). 

Simply type in the four numbers required, separated by commas, and 
press RETURN. The program will then renumber the required block of lines. 


60000 REM ## RENUMBER #+# 

60018 PRINT "Type in 4 numbers, separated by commas" 
60028 PRINT "Block start, finish, New line no., inc" 
60030 INPUT X,Y,L,I 

66048 S=1283 

608058 REPEAT 

60066 : IF DEEK(S)>=X THEN DOKE S,LsL=L+I 

60076 : S#=DEEK(8-2)+2 

60080 UNTIL DEEK(S)>Y OR DEEK(S) =60008 
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Warning: Be careful when using this utility. You could ruin your sanity and 
possibly your program. Make sure that the block you are renumbering still 
fits in between the existing non-renumbered lines. For example, look at the 
following sample program, 


18 REM SAMPLE PROGRAM 
12 FOR I=1 TO 10 


14 PRINT I 
16 PING 
18 WAIT 38 
28 NEXT 


Type RUN 60000 and enter the following numbers: 
12,16,10,10 


This will renumber lines 12 - 16 with the new numbers beginning at 10 and 
having increments of 10. The result becomes: 


18 REM SAMPLE PROGRAM 
1@ FOR I=1 TO 18 


20 PRINT I 
38 PING 
18 WAIT 38 
28 NEXT 


Very strange indeed — but the program still RUNs. 

You can recover your original program by using RUN 60000 and entering 
the following numbers 

10,100,10,2 


Go back to the original program and try RUN 60000 with the following 
numbers: 


10,20,10,0 


The result is as follows: 
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1@ REM SAMPLE PROGRAM 
18 FOR I=1 TO 10 


18 PRINT I 
1@ FING 
10 WAIT 30 
1@ NEXT 


Again strange — but it still works. 

Finally go back to the original program and RUN 60000 with the following 
numbers: 

10,20,50,-10 


which produces: 


38 REM SAMPLE PROGRAM 
40 FOR I=1 TO 18 


30 PRINT I 
28 PING 
1@ WAIT 32 
@ NEXT 


This program still RUNs, but try to delete line 10! 
You can have lots of fun creating unusual looking programs. Problems 
usually arise with GOSUB and GOTO statements. Here is an example: 


108 REM ANOTHER SAMPLE PROGRAM 
12 GOSUB 20 

14 PING 

16 WAIT 38 

18 END 

28 PRINT "HELLO" 

22 RETURN 


Renumber this program (RUN 60000) with the numbers: 
10,18,100,200 


The result is shown below. This program will not work. 


188 REM ANOTHER SAMPLE PROGRAM 
308 GOSUB 20 

508 PING 

708 WAIT 38 

900 END 

20 PRINT "HELLO" 

22 RETURN 


Finally, here is the Treasure hunt program renumbered in a strange way. The 
program RUNs but you won't be able to type it in, and trying to edit any line 
becomes difficult. (If you want to renumber your programs in such a 
fashion, renumber the higher numbers first and work down.) 


REM HHERHHHEHE HEHEHE EHS 

REM # TREASURE HUNT * 

REM HHHHHREHHHEHHEEES 

REM 

VIEW=1:SETUP=2: INFO=3 

REM #* THE MAIN PROGRAM # 

GOSUB INFO:GOSUB SETUP 

REPEAT 

: PLOT X,Y,12:GET K#:KK=ASC(K$):PLOT X,Y,8 
IF KK=32 THEN GOSUB VIEW 

IF KK=8 AND X>4 THEN X=X-2 

IF KK=9 AND X<3@ THEN X=X+2 

IF KK=1@ AND Y<22 THEN Y=Y+2 

: IF KK=11 AND Y>2 THEN Y=Y-2 

UNTIL STATE 

SHOOT: WAIT 40:PING: WAIT 48:PING 

PRINT CHR#(14)+E$+"L"3SPC(11); "WELL DONE" 
PRINT E$+"A"+" Another go? Y or N" 
PRINT CHR#(14)+CHR#(11)3:PING 

REPEAT: GET K$:UNTIL K$="Y¥" OR K$="N" 
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— 
NG 


IF K$="Y" THEN RUN 

CLS:PING:PRINT "Bye for now. ":POKE #26A,3:END 
REM * VIEW # 

IF SCRN(X+1,Y)<>35 THEN RETURN 

DIST=INT (SOR ( (MM-X) # (MM-X) + (NN-Y) #(NN-Y))/2) 
AS=CHR$ (48+DIST) 

IF DIST>9 THEN A¢$="X" 

IF DIST>@ AND RND(1)<¢.5 THEN A$="?" 

PLOT X+1,Y,A$:STATE=DIST=8 

RETURN 

REM * SETUP +# 

CLS:PRINT SPC(11)3 "TREASURE HUNT": PRINT 

FOR I=1 TO ii 

: PRINT SPC(3); 

: FOR J=@ TO 13 

: PRINT CHR$(27)+"H#"s 

: NEXT 

: PRINT: PRINT 

NEXT 

PRINT E$+"A Use cursor keys to move." 
PRINT:PRINT E$+"D Press <Space bar? to view. "; 
PRINT CHR$(11);CHR$(11)3CHR#(11) 

X=16:Y=12 ‘INITIAL POSITION 
MM=2#INT(RND(9) #1441) +2: NN=2#INT(RND(9) #1141) 
STATE=FALSE 

RETURN 

REM * INFOrmation # 

POKE #26A,10 ‘Disables cursor and key click 
INK O@:PAPER 3:CLS:PRINT 

E$=" "“4CHR$(27) sDS=E$+"I"+CHR$ (4) 

PRINT D$;SPC(9); "TREASURE HUNT":PRINT D$ 
PRINT: PRINT 

PRINT D$;SPC(5)3"“by Czes Kosniowski":PRINT D$ 
PRINT:PRINT E$+"A Find the hidden treasure." 
PRINT “By pressing the <space bar> you will" 
PRINT “be told how far away the treasure is" 
PRINT “approximately. Sometimes a ? appears" 
PRINT “to confuse you. An X means that the" 
PRINT "distance is 1@ or more. 600D LUCK" 
PRINT: PRINT E$+"B"+E$+"L Press Y to continue." 
REPEAT: K$=KEY$:K=RND(1):UNTIL K$="Y" 

RETURN 


Appendix 3: The ORIC Characters 


This appendix lists the ORIC standard and alternate character sets together 
with their ASCII values. 


Standard characters 


Gowoe Gow. 


Jom ot 


tl tA 
oN ant Wh 


“Ua aww 
o 


0 


Om Dewy tay 


Tm Oo 


73 
74 
73 
76 
77 
78 
79 


ee uUYy ARON KH KETC CAMA OT 


me th 


nF ow 


oho Oo 


1 
81 
82 
a3 
84 
85 
Bo 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
120 
i@1 
102 
103 


tH TO DOD Se Fee TF 


104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 


125 


Alternate characters 


iB 


74 


tf 


Ww 


meee ea 


“ 


81 


7 
8 
9 
6@ 


61 


wf 6 


4Q 
41 


o 
a 


42 


44 
45 
46 
47 
48 
49 


66 


67 


68 
69 
70 
71 
7 


MM 


11 


38 


2 
= 


94 


i) 


tH 
ie) 
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Appendix 4: Musical Notes 


The MUSIC command in the ORIC requires four numbers. 
Channel, Octave, Note, Volume 


Note can take any value from 1 to 12; other numbers produce error 
messages. These numbers correspond approximately to the following notes: 

4 0 2 
F# 8 


C# 5 
G 9 


D 4 
G# 10 


D# 5 E 6 
A 11 A# 12 


F 
B 


iow 
ou 
“ou 
“ou 
"ou 
out 


To play a tune on the ORIC the relevant data has to be fed in, usually via 
DATA statements. Things are relatively easy if you stay in one octave. But 
often you want to move from one octave to another. The use of DATA 
statements to indicate the octave required is rather wasteful. This appendix 
describes a simple way of combining the note and octave values into a single 
number. 

The idea is to use the numbers 1 to 12 for the first octave, the numbers 13 
to 24 for the second and so on. Then one number, say R, is used for both the 
octave and note value, To recover the value OCT of the octave and NN the 
note simply use the following. 


INTCCR - 1)/12) 
R - 12*0CT 


OcT 
NN 


With this scheme you can imagine a piano keyboard as illustrated below. 
Entering music from sheet music becomes easy. 





24 7911 1416 79 81 83 
tt 78|80|82|84 
CDEFGABCDE FGAB 
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Of course this is not the whole story. Usually we set the volume control to 
0 and use a command such as 


PLAY 3,0,1,2500 : WAITT 


This essentially controls the way the sound is produced (envelope mode 
etc.) and the time T for which the note is played. Thus our DATA statements 
should contain two numbers R and T. The value of R tells the ORIC which 
octave and note to play, while T tells it how long to play it for. 

The above process will produce acceptable music on the ORIC. You can of 
course be much more adventurous. 
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Easy Programming for the BBC Micro £5.95 
Eric Deeson 


‘A well thought out approach to teaching the beginner not only BBC 
Basic but also program design’—BBC Micro User 


Further Programming for the BBC Micro £5.95 
Alan Thomas 

BBC Micro Assembly Language August 1983 
Bruce Smith 

BBC Micro in Education August 1983 
Eric Deeson 

Easy Programming for the Dragon 32 £5.95 


Ian Stewart & Robin Jones 


Further Programming for the Dragon 32 £5.95 
Ian Stewart & Robin Jones 


Shiva Software 


Spectrum Special 1 £5.95 
Ian Stewart & Robin Jones 


A selection of 10 educational games and puzzles 


Spectrum Specials 2 & 3 £5.95 each 
Ian Stewart & Robin Jones 


Plus more to come! 


Other titles of interest 


Easy Programming for the Oric-1 
Ian Stewart & Robin Jones 


Brainteasers for BASIC Computers 
Gordon Lee 


Programming for REAL Beginners 
Philip Crookall 


PEEK, POKE, BYTE & RAM! Basic Programming 
for the ZX81 
Ian Stewart & Robin Jones 


‘Far and away the best book for ZX81 users new to computing’ — 
Popular Computing Weekly 


‘,.. the best introduction to using this trail-blazing micro’— 
Computers in Schools 


‘One of fifty books already published on the Sinclair micros, it is the 
best introduction accessible to all computing novices’—Laboratory 
Equipment Digest 


The ZX81 Add-On Book 
Martin Wren-Hilton 


Machine Code and better Basic 
Ian Stewart & Robin Jones 
‘...a beautifully written course in so-called advanced programming, 


concentrating on program structuring, data-handling and machine 
coding’—Education Equipment 


Easy Programming for the ZX Spectrum 
Ian Stewart & Robin Jones 


‘,.. will take you a long way into the mysteries of the Spectrum: is 
written with a consistent and humorous hand: and shares the affection 
the authors feel for the computer’ —ZX Computing 


Further Programming for the ZX Spectrum 
Ian Stewart & Robin Jones 


Spectrum Machine Code 
Ian Stewart & Robin Jones 


Computer Puzzles: For Spectrum and ZX81 
Ian Stewart & Robin Jones 


‘What a gem of a book! ’—Education Equipment 


Games to Play on Your ZX Spectrum 
Martin Wren-Hilton 


Spectrum in Education 
Eric Deeson 


£5.95 


£4.95 


£2.95 


£4.95 


£5.50 


£7.50 


£5.95 


£5.95 


£5.25 


£2.50 


£1.95 


£6.50 


Can you: 


@ escape from the pack of wolves 
@ pilot.the lunar module 

@ sing ‘Knees Up Mother Brown 
@ tame the snake 


’ 


This collection of 30 programs 
consists of four types of games: pure 
entertainment (using sound and 
colour), puzzles, arcade games and 
thought-provoking problems. 


Included in the useful appendix 
section are: 


@ program to SAVE the screen 

@ renumber utility program 

@ standard and alternate character 
sets 

@ music on the ORIC 


Program listings have all been 
printed directly from bug-free 
RUNning programs. Brief program 
descriptions and screen printouts 
are included. All programs are user- 
friendly and will not. ‘crash’ if 
presented with unexpected inputs. 


A cassette is available containing six 
programs from the book. 


et 
SHIVA 


Shiva Publishing Limited ISBN 0 906812 48 8 UK price £4.95 net 
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